【原創】ASP開發技巧集錦二

來源:互聯網
上載者:User
11. 報錯並返回 if rs.bof and rs.eof then  ‘ 還是有問題
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 ifsql="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. 幾個RegexRequire : /.+/,   
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])?$/,   
Currency : /^/d+(/./d+)?$/,
Number : /^/d+$/,   
Zip : /^[1-9]/d{5}$/,   
QQ : /^[1-9]/d{4,8}$/,   
Integer : /^[-/+]?/d+$/,   
Double : /^[-/+]?/d+(/./d+)?$/,   
English : /^[A-Za-z]+$/,   
Chinese :  /^[/u0391-/uFFE5]+$/,   
UnSafe :/^(([A-Z]*|[a-z]*|/d*|[-_/~!@#/$%/^&/*/./(/)/[/]/{/}<>/?/////'/"]*)|.{0,5})$|/s/, 19. Left 應用(控制字數)function title(str)
if len(trim(str))>=28 then
title=left(trim(str),27)&"..."
else
title=trim(str)
end if
end function 20. 判斷瀏覽器<SCRIPT LANGUAGE="javascript1.2">
<!--//
if (navigator.appName == 'Netscape')
var language = navigator.language;
else
var language = navigator.browserLanguage;
if (language.indexOf('en') > -1) document.location.href = 'en/index.asp';
else if (language.indexOf('zh') > -1) document.location.href = 'cn/index.asp';
else
document.location.href = 'cn/index.asp';
// End -->
</script>
相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.