11. 报错并返回
if rs.bof and rs.eof then ‘还是有问题
response.write"
z&<script language=Javascript>alert('找不到!');"
response.write"javascript:history.go(-1)script>
"
end if
-----------------------------------
这个是跳转。
V@8<script language=javascript>
alert('<%=intOperationInfo%>');
window.navigate('ChangePwd.asp');
script>
12. 从VBS到js,混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
S<script language=javascript>
alert("<%=checkpwdconfig(0)%>")
script>
13. 弹出窗口
i5K<script language=javascript>
function openaddnew()
{
subWindow=window.open("../Edit/PasswordConfigEdit.asp?method=new",'','scrollbars=yes,left=120,top=60,height=250,width=500,
menubar=no,location=no,toolbar=no,resizable=yes','')
subWindow.opener = this;
}
script>
用一个连接调用:
请修改密码 onClick="openaddnew()" 图片调用:

.gif"
onClick="openaddnew()">
14. 分页
<%
if request("pageno")<>"" then
pageno=int(request("pageno"))
else
pageno=1
end if
sql="select * from news where [language]='中文' and bigclassname='新闻' order
by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.pagesize=20
if rs.eof then
pageno=0
else
rs.absolutepage=pageno
end if
%>
==========================================
共<%=rs.recordcount%>条,<%=pageno%>/<%=int(rs.pagecount)%>页,
每页<%=rs.pagesize%>条
首页 <%if pageno>1 then%>
上一页 <%
end if
if int(pageno)<>int(rs.pagecount)then
%>
下一页 <%end if%>
尾页 <%rs.close%>
<%
call CloseConn()
%>
15. 数据库更新
sql="select * from [user] where username='"&request("username")&"'"
rs.Open sql,Conn,1,3
rs("usermail")=Request("usermail")
rs("userhome")=Request("userhome"))
rs.update
rs.close
16. 关闭独立窗口
17. 极细表格
width="32" height="32" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
|