ASP開發技巧集錦(4)

技巧

31. 確認操作

function ConfirmDel()
{
     if(confirm("確定要刪除嗎？一旦刪除將不能恢複！"))
        return true;
     else
        return false;
}

<form name="del" method="Post" action="Del.asp" >

==============================================================

我自己用的一個。
function ConfirmReset()
{
     if(confirm("確定取消操作嗎？一旦取消操作將不能恢複！"))
     window.form1.reset();
     // return true;
}
<a href="javascript:ConfirmReset();"><img src="http://www.163design.net/a/q/button_cance.gif"></a>

32. indexOf() 用法

<字串對象>.indexOf(<另一個字串對象>[, <起始位置>])；

該方法從<字串對象>中尋找<另一個字串對象>（如果給出<起始位置>就忽略之前的位置），如果找到了，就返回它的位置，沒有找到就返回“-1”。所有的“位置”都是從零開始的。
eg. Str.indexOf(“AP”)>-1 說明str中存在”AP”字串

33. 產生流水號

<%
if request.form("Modf") <> "" then
Dim  rs
Dim sql
Dim BugID
dim today
today=date()
toyear=year(today)
toyear=toyear*10000
tomonth= month(today)
tomonth=tomonth*100
tonow=day(today)
Serialnum = toyear + tomonth + tonow
Serialnum = Serialnum*10000+1

set rs = Server.CreateObject("ADODB.recordset")
sql = "select top 1 * from buglist order by SubmitDate desc"
rs.open sql,conn,1,3
if  not rs.eof then
     Dim OldSerialnum
     OldSerialnum = Rs("BugID")
     OldSerialnum = right(OldSerialnum,12)
     Serial = right(Serialnum,12)
     if OldSerialnum - Serial >= 0 then
     Serialnum = OldSerialnum + 1
     end if
end if
BugID = "ES"&request("ProductVersion")&Serialnum

34. 響應斷行符號

function getdata(what,whatid)
{
    if (event.keyCode==13)
    ……
<input name="SerialNum<%=i%>"   type="text" >

35. 關閉視窗前重新整理父頁面

response.write "<script language = javascript>"
response.write "javascript:opener.location.reload(); "
response.write "javasript:window.close();</script>"

[1] [2] [3] 下一頁