自己做站中发现和解决问题(实用的ASP语句....)--Ⅰ

无聊，自己做个小网站玩玩......

才发现原来自己写程序，有n多问题，各个方面都要考虑到......

而且一点点小错误都不行！不像去改网站........

顺便一些小问题每次都忘记了~~都要到处去找... 麻烦！

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

刷新此页面以后跳转另一个页面：
<% response.write "<meta http-equiv=refresh content=0;url=admin_ok.asp>" %> content为时间秒数....
==============================================================

js弹出一个返回框
<% response.write "<script language=javascript>" & chr(13) & "alert(两次输入的密码不一致！);" & "history.back(-1)" & "</script>" %>
chr(13) 是一个回车

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

呵呵~加一个css的... 鼠标放上去 表格框都变色....
<td  onmouseover="this.style.backgroundcolor=#569676;                           this.style.cursor=hand;"  onmouseout="this.style.backgroundcolor=#009933;"  width=12.5%  bgcolor=#009933  align=center  height=22> <a  href=bigclass.asp?depid=5919&bigclassid=23955   title=我就是我，永远力求进步！ > <font color=#ffffff>【站长图文】</font> </a> </td>
==============================================================

按钮返回：
<input onclick="history.back()" type="button" value="<<返回上页" />
==============================================================

js控制只能输入数字:：
<strong>onkeyup=if(isnan(this.value))this.value=</strong> 具体用法： <input type="text" name="qq" size="20" onkeyup=if(isnan(this.value))this.value=>
呵呵就用不：
if isnumeric(request.form("best"))=fase then
response.writ "****"
去判断了！！ 方便~~
==============================================================

循环：
<%do while not rs.eof%> *********************  <!--循环内容--> <%rs.movenext loop%>
==============================================================

数据的保存
一些不太重要的信息，统一保存在一个字段里面：
userinfo="   "&request.form("country")&"\ "&request.form("province")&"\ "&request.form("city")&"\ "&request.form("blood")&"\ "&request.form("belief")&"\ "&request.form("occupation")&"\ "&request.form("marital")&"\ "&request.form("education")&"\ "

提取的话：就用split函数
userinfo=split(rs("userinfo"),"\") country=userinfo(0) province=userinfo(1) city=userinfo(2) postcode=userinfo(3) blood=userinfo(4) belief=userinfo(5) occupation=userinfo(6) marital=userinfo(7) education=userinfo(8)

要注意一点的是：下标不能超过字段里面的变量个数
否则会出现："下标越界"的错误提示....
==============================================================
删除记录
id=request("id") exec="delete * from info where id="&id&"" exec="delete * from info where id="&request.form("id") conn.execute exec
==============================================================
一段网上常用的css
<font title=2006-08-30 19:21:42><fieldset style=border:;padding:5px;filter:glow(color=#ffaa00,strength=3);letter-spacing:-5px;><font style=font:78px/83px "楷体_gb2312";color:#ff0253;font-weight:bold;>nnd 都抄吾的代码！大过你们！</font></fieldset><br></font>
==============================================================
checkall函数：选中所有的多选框
<script language=javascript> function unselectall() {     if(document.myform.chkall.checked){   document.myform.chkall.checked = document.myform.chkall.checked&0;     }    } function checkall(form)   {   for (var i=0;i<form.elements.length;i++)     {     var e = form.elements[i];     if (e.name != "chkall"&&e.disabled==false)        e.checked = form.chkall.checked;     }   } </script>

然后利用：
<input name="chkall" type="checkbox" id="chkall" onclick=checkall(this.form) value="checkbox">
==============================================================
循环... 每行显示3个东东...
第①个:最简单的
<table width="100%"  border="1" cellspacing="0" cellpadding="1">     <tr> <% dim i for i=1 to 20     response.write("<td>")     response.write "测试"     response.write("</td>")     if i mod 3=0 then response.write("</tr>") next %>     </tr> </table>

第②个:稍微复杂点的
<!-- 连接数据库及取记录集省略 --> <table width="100%"  border="1" cellspacing="0" cellpadding="1"> <% if rs.eof then response.write"<tr><td>没有内容</td></tr>" else %>     <tr> <%     for i=1 to rs.eof     if rs.eof then exit for     response.write("<td>") %>     <!--循环内容-->     <%=rs("id")%>     <%=rs("name")%>     <%=rs("字段名")%>      ........... <%     response.write("</td>")     if i mod 4=0 then response.write("</tr>")     rs.movenext     next     end if %>      </tr> </table>

最后一种:最复杂的!!带分页一起的...
<table>   <tr>   <%       set rs=server.createobject("adodb.recordset")       rs.open "select * from photocoll order by id desc",conn,1,1       if rs.eof or rs.bof then       response.write "<td height=65 align=center style=font-size:16px;>sorry...没有任何用户资料,"       response.write "<br><br><a href=index.asp>返回至首页</a></td>"      else   %>     <td>   <%     rs.pagesize=12     page=clng(request("page"))     if page < 1 then page = 1     if page > rs.pagecount then      page = rs.pagecount     end if     sub showpage1(rs,page)     rs.absolutepage=page   %>    <table width="95%" border="0" cellspacing="0" cellpadding="0">      <tr>      <%       for i=1 to rs.pagesize       response.write("<td align=center>")      %>      <!--以下是要循环的内容-->      <table>><tr><td><%=rs("字段名")%></td></td></table>      <!--循环结束-->      <%response.write("</td>")         if i mod 4=0 then response.write("</tr>")             如果i除以3为0,及此次循环结束  每行显示3个像册      rs.movenext         if rs.eof then exit for         next         end sub          if page<>"" then         call showpage1( rs, page)         else         call showpage1 (rs,1)         end if%>         </tr>       </table>     </td>     <%end if%>   </tr> </table>
==============================================================
还有的慢慢加~~