分类: 网络预览模式: 普通 | 列表

 错误描述如下:

Microsoft JET Database Engine 错误 '80040e21'

由于您和其他用户试图同时改变同一数据,导致 Microsoft Jet 数据库引擎停止进程。

 

截图:

查看更多...

Tags: ASP 数据库引擎 数据库锁定

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1449

ASP格式化日期的通用函数

日期格式化函数:

ASP/Visual Basic代码
  1. Function FormatDate(DateAndTime, Format)  
  2.     On Error Resume Next  
  3.     Dim yy,y, m, d, h, mi, s, strDateTime  
  4.     FormatDate = DateAndTime  
  5.     If Not IsNumeric(Format) Then Exit Function  
  6.     If Not IsDate(DateAndTime) Then Exit Function  
  7.     yy = CStr(Year(DateAndTime))  
  8.     y = Mid(CStr(Year(DateAndTime)),3)  
  9.     m = CStr(Month(DateAndTime))  
  10.     If Len(m) = 1 Then m = "0" & m  
  11.     d = CStr(Day(DateAndTime))  
  12.     If Len(d) = 1 Then d = "0" & d  
  13.     h = CStr(Hour(DateAndTime))  
  14.     If Len(h) = 1 Then h = "0" & h  
  15.     mi = CStr(Minute(DateAndTime))  
  16.     If Len(mi) = 1 Then mi = "0" & mi  
  17.     s = CStr(Second(DateAndTime))  
  18.     If Len(s) = 1 Then s = "0" & s  
  19.     Select Case Format  
  20.         Case "1"  
  21.             strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s  
  22.         Case "2"  
  23.             strDateTime = yy & m & d & h & mi & s  
  24.         Case "3"  
  25.             strDateTime = yy & m & d & h & mi  
  26.         Case "4"  
  27.             strDateTime = yy & "年" & m & "月" & d & "日"  
  28.         Case "5"  
  29.             strDateTime = m & "-" & d  
  30.         Case "6"  
  31.             strDateTime = m & "/" & d  
  32.         Case "7"  
  33.             strDateTime = m & "月" & d & "日"  
  34.         Case "8"  
  35.             strDateTime = y & "年" & m & "月"  
  36.         Case "9"  
  37.             strDateTime = y & "-" & m  
  38.         Case "10"  
  39.             strDateTime = y & "/" & m  
  40.         Case "11"  
  41.             strDateTime = y & "-" & m & "-" & d  
  42.         Case "12"  
  43.             strDateTime = yy & "/" & m & "/" & d  
  44.         Case "13"  
  45.             strDateTime = yy & "." & m & "." & d  
  46.         Case "14"  
  47.             strDateTime = yy & "-" & m & "-" & d  
  48.         Case Else  
  49.             strDateTime = DateAndTime  
  50.     End Select  
  51.     FormatDate = strDateTime  
  52. End Function  

不用作过多解释。

Tags: ASP 日期

分类:网络 | 固定链接 | 评论: 4 | 引用: 0 | 查看次数: 2107

504 Gateway Time-out

504 Gateway Time-out

nginx/1.0.15

IIS 6.0的环境,Windows2003。这样的错误怎么解决?如下图。

 

 

查看更多...

Tags: nginx

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1479

怎么获得下拉菜单选项的标签文本呢?注意不是选项的值Value哦。

演示如下:

下拉菜单:

接收标签文本:

 

下拉菜单:

接收Value值:

 

关键代码

XML/HTML代码
  1. <!--接收标签文本的-->  
  2. <select size="1" name="comp_id" onchange="author.value=this.options[this.selectedIndex].text">  
  3. <!--接收Value值的-->  
  4. <select size="1" name="comp_id" onchange="author1.value=this.value">  

 

查看更多...

Tags: 下拉菜单 标签文本 选项值

分类:互联网 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1387

JS-javascript的一些用法收集备忘

Javascript客户端对页面控制的一些用法小收集。

1、ENTER键可以让光标移到下一个输入框
<input onkeydown="if(event.keyCode==13)event.keyCode=9">

2、Javascript 的confirm函数用法举例:

XML/HTML代码
  1. <span onclick="if( !confirm('确定要修改吗?')) return false;ChangeTeacherStatus(10)">状态</span>  

上面的代码是点击后先弹出确认框确认是否要继续,如果是,则执行后面的ChangeTeacherStatus函数,否则什么也不做。

 3、复选框控制对应文本框是否可用

XML/HTML代码
  1. <input type="checkbox" name="mycheck" value="1" onclick="if(this.checked){txtinput.disabled=false}else{txtinput.disabled=true}">  
  2. <input type="text" name="txtinput" size="20" disabled>  

因为这个是只判断复选框“是否被点击”而不是“是否为选中”,所以文本框的初始状态要为disabled。

查看更多...

Tags: js javascript confirm 确认框 客户端控制

分类:互联网 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1579

关于表单验证的一些代码

表单客户端数据验证在WEB开发中是一个比较独立的领域,网络上有比较多的验证插件类工具,在这作个总结性备忘录。

先说个简单的选项按钮(单选项)是否选择的验证。BTW:radio好像没有focus()属性。

JavaScript代码
  1. <script type="text/javascript">  
  2.     function checkform(fr)  
  3.     {  
  4.         var sex_obj = document.getElementsByName('sex');  
  5.         var temp_sex = false;  
  6.         for(var i = 0; i < sex_obj.length; i ++){  
  7.             if(sex_obj[i].checked){  
  8.             var sex = sex_obj[i].value;  
  9.             temp_sex = true;  
  10.             break;  
  11.             }  
  12.         }  
  13.         if(temp_sex == false){  
  14.         alert('请选择性别');  
  15.         return false;  
  16.         }  
  17.     }  
  18. </script>  

表单HTML代码:

XML/HTML代码
  1. <form id="form1" name="form1" method="post" onsubmit="return checkform(this)" action="">  
  2. 性别:<input type="radio" name="sex" value="1" >男 <input type="radio" name="sex" value="2" >女  
  3. </form>  

 

 下面这个与验证无关,只是记录下拉框的一个不可选项optgroup的用法:

XML/HTML代码
  1. <select name="classid" id="classid">  
  2.     <optgroup label="课程分类(不可选)" style="color:#FF0000"></optgroup>  
  3.     <option value="13">  音乐</option>  
  4. </select>  

 

查看更多...

Tags: 表单 客户端验证

分类:互联网 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1490

ASP环境AJAX乱码再遇再郁闷

这次遇到的AJAX乱码是新气象,与以往的不同。

在异步提交文件(getteacherinfo.asp——简称A文件)里写上 response.Charset="utf-8" 时,乱码是下面图一的样子(图中右侧下拉框):

如果不写上 response.Charset="utf-8" 时,乱码是下面图二的样子(图中右侧下拉框):


 

所以以前能解决乱码问题的方法都不能用了。

注意:调用AJAX文件的编码方式是ANSI,A文件的编码方式是UTF-8,js文件编码是UTF-8。

图中乱码部分是从A文件中由AJAX提取的,其中下拉菜单的第一项是静态写出来的,内容选项是动态读数据库出来的。

ASP/Visual Basic代码
  1. Response.write "<select name=""teacherid"" id=""teacherlist"" style=""width:150px;"">"&vbcrlf  
  2. Response.write "<option value="""">请选择任课老师</option>"&vbcrlf  
  3. Do While Not rscl.eof  
  4.     Response.write "<option value="""&rscl(0)&""">"&ShowTeacherName(rscl(0))&"</option>"  
  5.     rscl.movenext  
  6.     If rscl.eof Then Exit Do  
  7. Loop  
  8. Response.write "</select>"  

静态与动态输出的文字不同时乱码,郁闷呀。

2013-6-9:感觉这个应该与AJAX没有关系,与文件的编码有关。之前遇到的繁体问题也与这个类似。

Tags: AJAX 乱码 ASP

分类:互联网 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1539

关于ASP的ERR对象的一些记录

ERR对象

err对象使用的时候不需要创建实例,就是说你要用的时候随便拿来使用,就像session一样,不需要像ADODB对象使用的时候Set conn=Server.CreateObject("ADODB.Connection") 来创建实例,它返回一个错误代码,但是Err!=Err.Number,可以用Clear方法清除,以利于下次使用.它主要的是个Description 方法,返回的是简要错误说明,这里一个很经典的例子:

ASP/Visual Basic代码
  1. <%@ LANGUAGE="VBscript" %>   
  2. <%Response.Buffer = True   
  3. On Error Resume Next  
  4. s="sa"  
  5. response.write(Int(s))  
  6. If Err.Number <> 0 Then   
  7. Response.Clear   
  8. response.write"发生错误:"%>   
  9. <HTML>   
  10. <HEAD>   
  11. <TITLE></TITLE>   
  12. </HEAD>   
  13. <BODY>   
  14. 错误 Number: <%= Err.Number %><br/>   
  15. 错误信息: <%= Err.Description %><br/>   
  16. 出错文件: <%= Err.Source %><br/>   
  17. 出错行: <%= Err.Line %><br/>   
  18. <%= Err %>  
  19. </BODY>   
  20. </HTML>   
  21. <%End If%>  

运行一看,呓,Err.Line 为空,为啥?因为asp的vb编写的里面line方法不被支持.值得注意的是要使用err对象的时候,必须加上On Error Resume Next,原来越过asperror对象的异常抛出。

下面两句的作用是相同的:

ASP/Visual Basic代码
  1. if Err.Number <> 0 then  
  2. If Err Then  

ERROR对象
在链接数据库的时候可以使用error对象: Count属性:用来统计Errors集合的数目,Item方法:用来指定特定的一个错误,语法 为Error.Item(number),其中number为一数字。由于Item为默认的方法,所以Error(number)的写法与前面的写法是等 价的。下面是一段程序。用来列举Error对象:

ASP/Visual Basic代码
  1. On Error Resume next  
  2. Set conn=Server.CreateObject("ADODB.Connection")  
  3. Dim i,your_databasepath:your_databasepath="no.mdb"  
  4. connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(your_databasepath)&""  
  5. conn.open connstr  
  6. if conn.errors.count<>0 then  
  7. response.write "链接数据库失败<hr/>"  
  8. for i =0 to conn.errors.count-1  
  9. response.write conn.errors.item(i)&"<hr>"  
  10. response.write Err.Description  
  11. next  
  12. else  
  13. response.write "链接数据库成功"  
  14. end if   
  15. conn.close  

没啥差别和err对象,看到比较结果了么?寒死了,直接用err对象简单.

查看更多...

分类:互联网 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1506