ASP开发44条技巧集锦之一(2)
2008-02-23 09:40:09来源：互联网 阅读 ()
读取一个SESSINN：
string username= Session["username"];
dim username=Session("username")
Cookie与此用法大致相同
9. 几个VB中的常数
下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：
常数 等于 描述
vbCrLf Chr(13) Chr(10) 回车符与换行符结合
vbCr Chr(13) 回车符
vbLf Chr(10) 换行符
vbNewLine Chr(13) Chr(10) 平台指定的新行字符；适用于当前平台
vbNullChar Chr(0) 值为 0 的字符
vbNullString 值为 0 的字符串 用来调用外部过程；与长度为零的字符串 ("") 不同
vbObjectError -2147221504 用户定义的错误号应当大于该值，例如：
Err.Raise Number = vbObjectError 1000
vbTab Chr(9) Tab 字。
vbBack Chr(8) 退格字符
10. 按钮为不可用
<%if rsView.eof and rsView.bof then %> ‘ 这里有个大问题，下文再说
<input name="submit" type='submit' value='对选定用户解鎖' disabled>
<%else%>
<input name="submit" type='submit' value='对选定用户解鎖' >
</td>
<%end if%>
response.write"<SCRIPT language=JavaScript>alert('找不到！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
<script language="javascript">
alert('<%=intOperationInfo%>');
window.navigate('ChangePwd.asp');
</Script> 12. 从VBS到JS，混用 <%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
<script language="javascript">
alert("<%=checkpwdconfig(0)%>")
</script> 13. 弹出窗口 <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> 用一个连接调用：
<a href=""＃"">请修改密码 onClick="openaddnew()"</a> 图片调用：
<img name=submit1 src="../button_new<%=session("languageid")%>.gif" onClick="openaddnew()"> 14. 分页 <!--#include file="conn.asp"-->
<%
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%>条
<a href="manage.asp?pageno=1">首页</a>
<%if pageno>1 then%>
<a href="manage.asp?pageno=<%=int(pageno)-1%>">上一页</a>
<%
end if
if int(pageno)<>int(rs.pagecount)then
%>
<a href="manage.asp?pageno=<%=int(pageno 1)%>">下一页</a>
<%end if%>
<a href="manage.asp?pageno=<%=int(rs.pagecount)%>">尾页</a>
<%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. 关闭独立窗口 <head>
<OBJECT id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff- 11cf-9377-00aa003b7a11"><param name="Command" value="Close">
</object>
</head>
<body>
<input type="button" value="点击我关闭窗口" onclick="closes.Click();">
</body> 17. 极细表格 <table border="1" cellpadding="0" cellspacing="0" width="32" height="32" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td> </td>
</tr>
</table> 18. 几个正则表达式 Require : /. /,
Email : /^\w ([- .]\w )*@\w ([-.]\\w )*\.\w ([-.]\w )*$/,
Phone : /^((\(\d{3}\))|(\d{3}\-))?(\(0\d{2,3}\)|0\d{2,3}-)?[1-9]\d{6,7}$/,
Mobile : /^((\(\d{3}\))|(\d{3}\-))?13\d{9}$/,
Url : /^http:\/\/[A-Za-z0-9] \.[A-Za-z0-9] [\/=\?%\-&_~`@[\]\': !]*([^<>\"\"])*$/,
IdCard : /^\d{15}(\d{2}[A-Za-z0-9])?$/,
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
下一篇：ASP开发44条技巧集锦之二
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
