1<script type="text/javascript">
2<!--
3function EW_selectKey(elem) {
4 var f = elem.form;
5 if (!f.key_d) return;
6 if (f.key_d[0]) {
7 for (var i=0; i<f.key_d.length; i++)
8 f.key_d[i].checked = elem.checked;
9 } else {
10 f.key_d.checked = elem.checked;
11 }
12}
13//-->
14</script>
15
操作的按钮为:
<input type="submit" name="btndelete" value="删除选择记录" onClick="this.form.action='LogDel.asp';this.form.encoding='application/x-www-form-urlencoded';this.form.submit();">
7、检测Input是否填写内容
1<script language=javascript>
2<!--
3function CheckForm()
4{
5 if (document.form1.UserName.value=="")
6 {
7 alert("请输入姓名!");
8 document.form1.UserName.focus();
9 return false;
10 }
11}
12-->
13</script>
14 8、删除时确认 <a href='javascript :if(confirm("确实要删除吗?"))location="boos.asp?ID=1"'>删除</a>
或则使用()
<script type="text/javascript">
<!--
function ConfirmDel()
{
c=window.confirm("确认删除吗?");
if(c==true)return true;
else return false;
}
//-->
</script>
<a href="MyFormDel.asp?key=<%=rs("ID")%>" onClick="return check();">删除</a>
9、在打开的子窗口刷新父窗口的代码里如何写？
window.opener.location.reload()
10、ENTER键可以让光标移到下一个输入框
<input onkeydown="if(event.keyCode==13)event.keyCode=9">
11、38.页面进入和退出的特效
进入页面<meta http-equiv="Page-Enter" content="revealTrans(duration=x, transition=y)">
推出页面<meta http-equiv="Page-Exit" content="revealTrans(duration=x, transition=y)">
这个是页面被载入和调出时的一些特效。duration表示特效的持续时间，以秒为单位。
transition表示使
用哪种特效(, 取值为1 - 23)
0: 矩形缩小()
1: 矩形扩大()
2: 圆形缩小()
3: 圆形扩大()
4: 下到上刷新()
5: 上到下刷新()
6: 左到右刷新()
7: 右到左刷新()
8: 竖百叶窗()
9: 横百叶窗()
10: 错位横百叶窗()
11: 错位竖百叶窗()
12: 点扩散()
13: 左右到中间刷新()
14: 中间到左右刷新()
15: 中间到上下()
16: 上下到中间()
17: 右下到左上()
18: 右上到左下()
19: 左上到右下()
20: 左下到右上()
21: 横条()
22: 竖条()
23: 以上22种随机选择一种()
12、字符串替换
function NoShowPic(str)
str = replace(str,"<img ","<img style=='display:none' "
NoShowPic = Str()
End Function
13、让弹出窗口总是在最上面:
<body onblur="this.focus();">
14、不要滚动条?
让竖条没有:
<body style='overflow:scroll;overflow-y:hidden'>
</body>
让横条没有:
<body style='overflow:scroll;overflow-x:hidden'>
</body>
两个都去掉？更简单了
<body scroll="no">
</body>
15、执行操作的时候如果出现错误跳转到指定错误页面
1 conn.Execute(sqlStr)
2 If Err.Number <> 0 Then
3 set conn=nothing
4 Response.Redirect("MyForm.asp")
5 else
6 Response.Redirect("HandleError.asp?ErrorMsg="&Server.URLEncode("删除失败！"))
7 end if
8
16、关闭窗口在图片的连接上写javascript:window.close();
提交的图片连接写javascript:document.Form1.submit();
删除之前出现确认对话框：
<a href="del.asp?id=<%=rs("rowid")%>" ONCLICK="javascript:return confirm('真的要删除数据吗？')">删除</a>
17、用VBScript弹出提示框然后跳转到指定页面
<%
Response.Write "<script language='javascript'>alert(""提交成功!"");location.href=""AddBook.asp"";</script>"
%>
18、页面摘入等待。。。。脚本说明:
把如下代码加入<head>区域中
<SCRIPT LANGUAGE="JavaScript">
document.write("<font size=6 color=blue face='楷体_GB2312'><B>正在载入雨中太阳首页,请稍等..</B></font>");
window.clear;
window.location.href="http://yzty.europe.webmatrixhosting.net";
</SCRIPT>
19、在Text直接修改记录，然后点修改保存记录
1 <%count=0
2 do while not (rs.eof or rs.bof) and count<rs.PageSize %>
3 <form action="webGroupEdit.asp" method="post" name="GroupEdit" onSubmit="return Checkedit()">
4 <tr bgcolor="E9F3FF">
5 <td> <%=rs("id")%> <input name="b" type="hidden" id="b" value="<%=rs("id")%>">
6 <input name="currpage" type="hidden" id="currpage" value="<%=page%>"></td>
7 <td height="18"><input name="a" type="text" id="a" value="<%=rs("MemGroupName")%>" size="20" maxlength="50">
8 </td>
9 <td height="18"><input name="c" type="text" id="c" value="<%=rs("Remark")%>" size="25" maxlength="30"></td>
10 <td><input type="submit" name="Submit" value=" 修改 " ></td>
11 <td><div align="center"><a href="webGroupDel.asp?id=<%=rs("id")%>&page=<%=page%>" onClick="return check()">删除</a></div></td>
12 </tr>
13 </form>
14 <%
15 count=count+1
16 rs.movenext
17 loop
18 %>
19
20、自动计算问题：
<input type="hidden" name="selvalue">
<SELECT NAME="select1" onChage="javascript:document.form1.selvalue.value=this.options[this.options.selectedIndex].text">
<option value="1">新浪</option>
<option value="2">百度</option>
<option value="3">中华网</option>
<option value="4">腾讯</option>
</SELECT>
21、一个不错的分页代码
1<%
2nStartRec = 0
3nStopRec = 0
4nTotalRecs= 0
5nDisplayRecs = 30
6nRecRange = 10
7%>
8<%
9Set conn=Server.CreateObject("ADODB.Connection")
10conn.Open xDB_Conn_Str 'xDB_Conn_Str 为连接数据库的字符串
11Set rs= Server.CreateObject("ADODB.RecordSet")
12rs.CursorLocation = 3
13rs.Open sSql,conn,1,2
14nTotalRecs = rs.RecordCount
15if nDisplayRecs<=0 then
16 nDisplayRecs= nTotalRecs
17end if
18nStartRec=1
19SetUpStartRec() ' Set Up Start Record Position
20%>
21<table>
22<tr bgcolor="#3366CC">
23 <td><span class="end">表字段标题</span></td>
24 ..
25 </tr>
26<%
27
28 ' Avoid starting record > total records
29If CLng(nStartRec) > CLng(nTotalRecs) Then
30 nStartRec = nTotalRecs
31End If
32
33 ' Set the last record to display
34nStopRec = nStartRec + nDisplayRecs - 1
35
36 ' Move to first record directly for performance reason
37nRecCount = nStartRec - 1
38If Not rs.Eof Then
39 rs.MoveFirst
40 rs.Move nStartRec - 1
41End If
42nRecActual = 0
43Do While (Not rs.Eof) And (nRecCount < nStopRec)
44 nRecCount = nRecCount + 1
45 If CLng(nRecCount) >= CLng(nStartRec) Then
46 nRecActual = nRecActual + 1
47
48 ' Set row color
49 sItemRowClass = " bgcolor=""#FFFFFF"""
50
51 ' Display alternate color for rows
52 If nRecCount Mod 2 <> 0 Then
53 sItemRowClass = " bgcolor=""#F5F5F5"""
54 End If
55%>
56 '在记录的隔行显示不同的底色使用
57 <tr <%=sItemRowClass%>>
58 <td><% Response.Write rs("表字段") %></td>
59
60 </tr>
61
62<% End If
63 rs.MoveNext
64 Loop
65%>
66</table>
67 <%
68
69 ' Close recordset and connection
70rs.Close
71Set rs = Nothing
72conn.Close
73Set conn = Nothing
74%>
75 '以下是分页的底部显示
76<%
77
78 ' Display page numbers
79If nTotalRecs > 0 Then
80 rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
81 If CLng(nTotalRecs) > CLng(nDisplayRecs) Then
82
83 ' Find out if there should be Backward or Forward Buttons on the TABLE.
84 If nStartRec = 1 Then
85 isPrev = False
86 Else
87 isPrev = True
88 PrevStart = nStartRec - nDisplayRecs
89 If PrevStart < 1 Then PrevStart = 1 %>
90 <a href="MyForm.asp?start=<%=PrevStart%>"><b>上一页</b></a>
91 <%
92 End If
93 If (isPrev Or (Not rsEof)) Then
94 x = 1
95 y = 1
96 dx1 = ((nStartRec-1)\(nDisplayRecs*nRecRange))*nDisplayRecs*nRecRange+1
97 dy1 = ((nStartRec-1)\(nDisplayRecs*nRecRange))*nRecRange+1
98 If (dx1+nDisplayRecs*nRecRange-1) > nTotalRecs Then
99 dx2 = (nTotalRecs\nDisplayRecs)*nDisplayRecs+1
100 dy2 = (nTotalRecs\nDisplayRecs)+1
101 Else
102 dx2 = dx1+nDisplayRecs*nRecRange-1
103 dy2 = dy1+nRecRange-1
104 End If
105 While x <= nTotalRecs
106 If x >= dx1 And x <= dx2 Then
107 If CLng(nStartRec) = CLng(x) Then %>
108 <b><%=y%></b>
109 <% Else %>
110 <a href="MyForm.asp?start=<%=x%>"><b><%=y%></b></a>
111 <% End If
112 x = x + nDisplayRecs
113 y = y + 1
114 ElseIf x >= (dx1-nDisplayRecs*nRecRange) And x <= (dx2+nDisplayRecs*nRecRange) Then
115 If x+nRecRange*nDisplayRecs < nTotalRecs Then %>
116 <a href="MyForm.asp?start=<%=x%>"><b><%=y%>-<%=y+nRecRange-1%></b></a>
117 <% Else
118 ny=(nTotalRecs-1)\nDisplayRecs+1
119 If ny = y Then %>
120 <a href="MyForm.asp?start=<%=x%>"><b><%=y%></b></a>
121 <% Else %>
122 <a href="MyForm.asp?start=<%=x%>"><b><%=y%>-<%=ny%></b></a>
123 <% End If
124 End If
125 x=x+nRecRange*nDisplayRecs
126 y=y+nRecRange
127 Else
128 x=x+nRecRange*nDisplayRecs
129 y=y+nRecRange
130 End If
131 Wend
132 End If
133
134 ' Next link
135 If NOT rsEof Then
136 NextStart = nStartRec + nDisplayRecs
137 isMore = True %>
138 <a href="MyForm.asp?start=<%=NextStart%>"><b>下一页</b></a>
139 <% Else
140 isMore = False
141 End If %>
142 <br>
143<% End If
144 If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
145 nStopRec = nStartRec + nDisplayRecs - 1
146 nRecCount = nTotalRecs - 1
147 If rsEof Then nRecCount = nTotalRecs
148 If nStopRec > nRecCount Then nStopRec = nRecCount %>
149 记录 <%= nStartRec %> 到 <%= nStopRec %> 总记录 <%= nTotalRecs %>
150<% Else %>
151 没有记录
152<% End If %>
153最后在</html>后面的
154<%
155 Sub SetUpStartRec()
156 Dim nPageNo
157
158 ' Check for a START parameter
159 If Request.QueryString("start").Count > 0 Then
160 nStartRec = Request.QueryString("start")
161 Session("MyForm_REC") = nStartRec
162 ElseIf Request.QueryString("pageno").Count > 0 Then
163 nPageNo = Request.QueryString("pageno")
164 If IsNumeric(nPageNo) Then
165 nStartRec = (nPageNo - 1) * nDisplayRecs + 1
166 If nStartRec <= 0 Then
167 nStartRec = 1
168 ElseIf nStartRec >= ((nTotalRecs - 1) \ nDisplayRecs) * nDisplayRecs + 1 Then
169 nStartRec = ((nTotalRecs - 1) \ nDisplayRecs) * nDisplayRecs + 1
170 End If
171 Session("MyForm_REC") = nStartRec
172 Else
173 nStartRec = Session("MyForm_REC")
174 If Not IsNumeric(nStartRec) Or nStartRec = "" Then
175 nStartRec = 1 ' Reset start record counter
176 Session("MyForm_REC") = nStartRec
177 End If
178 End If
179 Else
180 nStartRec = Session("MyForm_REC")
181 If Not IsNumeric(nStartRec) Or nStartRec = "" Then
182 nStartRec = 1 'Reset start record counter
183 Session("MyForm_REC") = nStartRec
184 End If
185 End If
186 End Sub
187%>
188
