實(shí)用的基礎(chǔ)asp程序整理(5則)

2010-08-28 10:44:58來源:西部e網(wǎng)作者:

  1、關(guān)閉窗口在圖片的連接上寫

  javascript:window.close();

  提交的圖片連接寫

  javascript:document.Form1.submit();

  刪除之前出現(xiàn)確認(rèn)對話框:

 <a href="del.asp?id=<%=rs("rowid")%>" ONCLICK="javascript:return confirm('真的要刪除數(shù)據(jù)嗎?')">刪除</a>

  2、用VBScript彈出提示框然后跳轉(zhuǎn)到指定頁面

  。%
  Response.Write "<script language='javascript'>alert(""提交成功!"");location.href=""AddBook.asp"";</script>"
  %>


  3、頁面摘入等待。。。。腳本說明:
  把如下代碼加入<head>區(qū)域中

  。糞CRIPT LANGUAGE="JavaScript">
  document.write("<font size=6 color=blue face='楷體_GB2312'><B>正在載入細(xì)溪驛站首頁,請稍等..</B></font>");
  window.clear;
  window.location.href=" 。/SCRIPT>


  4、在Text直接修改記錄,然后點(diǎn)修改保存記錄

  。%count=0
  do while not (rs.eof or rs.bof) and count<rs.PageSize %>
 。糵orm action="webGroupEdit.asp" method="post" name="GroupEdit" onSubmit="return Checkedit()">
 。紅r bgcolor="E9F3FF">
  <td> <%=rs("id")%> <input name="b" type="hidden" id="b" value="<%=rs("id")%>">
 。糹nput name="currpage" type="hidden" id="currpage" value="<%=page%>"></td>
 。紅d height="18"><input name="a" type="text" id="a" value="<%=rs("MemGroupName")%>" size="20" maxlength="50">
 。/td>
 。紅d height="18"><input name="c" type="text" id="c" value="<%=rs("Remark")%>" size="25" maxlength="30"></td>
 。紅d><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、自動計(jì)算問題:

  。糹nput type="hidden" name="selvalue">
 。糞ELECT NAME="select1" onChage="javascript:document.form1.selvalue.value=this.options[this.options.selectedIndex].text">
 。紀(jì)ption value="1">新浪</option>
 。紀(jì)ption value="2">百度</option>
 。紀(jì)ption value="3">中華網(wǎng)</option>
 。紀(jì)ption value="4">騰訊</option>
 。/SELECT>  

贊助商鏈接: