|
|
茫茫網海中的冷日
發生過的事,不可能遺忘,只是想不起來而已! |
|
恭喜您是本站第 1729442
位訪客!
登入 | 註冊
|
|
|
|
發表者 |
討論內容 |
冷日 (冷日) |
發表時間:2008/3/10 14:45 |
- Webmaster

- 註冊日: 2008/2/19
- 來自:
- 發表數: 15771
|
- [分享]經典實用的基礎asp程式整理
- 經典實用的基礎asp程式整理
1、 關閉窗口在圖片的連接上寫
(script removed)window.close();
提交的圖片連接寫
(script removed)document.Form1.submit();
刪除之前出現確認對話方塊:
<a href="del.asp?id=<%=rs("rowid")%>"
ONCLICK="(script removed)return confirm('真的要刪除數據嗎?')">刪除</a>
2、 用VBScript彈出提示框然後跳轉到指定頁面
<%
Response.Write "<script language='javascript'>alert(""提交成功!"");
location.href=""AddBook.asp"";</script>"
%>
3、 頁面摘入等待。。。。腳本說明: 把如下代碼加入<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>
4、 在Text直接修改記錄,然後點修改保存記錄
<%count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize %>
<form action="webGroupEdit.asp" method="post" name="GroupEdit" onSubmit="return Checkedit()">
<tr bgcolor="E9F3FF">
<td> <%=rs("id")%> <input name="b" type="hidden" id="b" value="<%=rs("id")%>">
<input name="currpage" type="hidden" id="currpage" value="<%=page%>"></td>
<td height="18"><input name="a" type="text" id="a" value="<%=rs("MemGroupName")%>" size="20" maxlength="50">
</td>
<td height="18"><input name="c" type="text" id="c" value="<%=rs("Remark")%>" size="25" maxlength="30"></td>
<td><input type="submit" name="Submit" value=" 修改 " ></td>
<td><div align="center"><a href="webGroupDel.asp?id=<%=rs("id")%>&page=<%=page%>"
onClick="return check()">刪除</a></div></td>
</tr>
</form>
<%
count=count+1
rs.movenext
loop
%>
5、 自動計算問題:
<input type="hidden" name="selvalue">
<SELECT NAME="select1"
onChage="(script removed)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>
|
|
|