做网站遇到的问题集3

1. 用JavaScript实现URL重定向：
 window.location.href='index.asp'
2.检查form表单中的元素都已填写；
<script language="javascript">
function Mycheck(form){//传过来的表单名
  for(i=0;i<form.length;i++){//length为表单元素个数
    if(form.elements[i].value==""){//用element定向指定的表单元素
   alert(form.elements[i].name + "不能为空!");return false;//根据element的name属性得到名称
 } 
  }
}
</script>
3.在asp中使用分页技术；
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from tab_goods order by id desc"
rs.open sqlstr,conn,1,1
If Not (rs.eof and rs.bof) Then
 rs.pagesize=12 '定义每页显示的记录数
 pages=clng(Request("pages"))  '获得当前页数
 If pages<1 Then pages=1
 If pages>rs.recordcount Then pages=rs.recordcount
 showpage rs,pages  '执行分页子程序showpage  
 Sub showpage(rs,pages)  '分页子程序showpage(rs,pages)
 rs.absolutepage=pages   '指定指针所在的当前位置
 For i=1 to rs.pagesize  '循环显示记录集中的记录
%>
rs.movenext  '指针向下移动
If rs.eof Then exit for
Next
End Sub
%>
<% 
If rs.recordcount > rs.pagesize Then
 if pages<>1 then
  response.Write("&nbsp;&nbsp;<a href="&path&"?pages=1&sclassid="&sclassid&"&action="&action&">首页</a>")
  response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&(pages-1)&"&sclassid="&sclassid&"&action="&action&">上一页</a>")
 end if
 response.Write("&nbsp;&nbsp;当前 <font color='#FF0000'>"&pages&"/"&rs.pagecount&"</font> 页")
 if pages<>rs.pagecount then
  response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&(pages+1)&"&sclassid="&sclassid&"&action="&action&">下一页</a>")
  response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&rs.pagecount&"&sclassid="&sclassid&"&action="&action&">末页</a>")
 end if
 rs.close
 Set rs=Nothing
End If

4.读取数据库中的图片信息显示
<img src="Img.asp?id=<%=rs("id")%> height="100" width="125" >
img.asp代码如下：
Set rs=Server.CreateObject("ADODB.Recordset")
id=Request.QueryString("id") '图片的唯一标识
sqlstr="select Gpicture from tab_goods where id="&id&""
rs.open sqlstr,conn,1,3
Response.ContentType="image/*"
Response.BinaryWrite rs("Gpicture").getChunk(8000000)
rs.close
Set rs=Nothing
5.退出登录
 session.Abandon()   '把session中的数据全部放弃
 response.Redirect("index.asp")  '重新定向到主页面
6.返回上次登录的界面
<script language="javascript">
history.back(1);
</script>
7.asp中的select case，根据条件引用不同的文件
 <%
 action=request.QueryString("action")
  Select case action
  case "file_edit"
  %>
      <!--#include file="User_edit.asp"-->
      <%case "pwd_edit"%>
      <!--#include file="User_passwd.asp"-->
      <%case "order"%>
      <!--#include file="User_order_query.asp"-->
      <%case "consume"%>
      <!--#include file="User_consume.asp"-->
      <%End Select%>    
8.关于meta参加meta百科

9.防sql注入
dim SQL_Injdata
SQL_Injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")

If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_Data))>0 Then
Response.Redirect("../index.asp")
end if
next
Next
End If

10.连接数据库
Dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Password=;Data Source="&Server.MapPath("DataBase/db_name.mdb")&";"
conn.open connstr

11.定义转换字符函数
<%
Function Str_filter(InString)
  NewStr=Replace(InString,"'","''")
  NewStr=Replace(NewStr,"<","&lt")
  NewStr=Replace(NewStr,">","&gt")
  NewStr=Replace(NewStr,"chr(60)","&lt;")
  NewStr=Replace(NewStr,"chr(37)","&gt;")
  NewStr=Replace(NewStr,"""","&quot")
  NewStr=Replace(NewStr,";",";;")
  NewStr=Replace(NewStr,"--","-")
  NewStr=Replace(NewStr,"/*"," ")
  NewStr=Replace(NewStr,"%"," ")
  Str_filter=NewStr
End Function
%>
12.根据时间获取的字符串
<%
Function GetOrderNo(dDate)
    GetOrderNo = RIGHT("0000"+Trim(Year(dDate)),4)+RIGHT("00"+Trim(Month(dDate)),2)+RIGHT("00"+Trim(Day(dDate)),2)+RIGHT("00" + Trim(Hour(dDate)),2)+RIGHT("00"+Trim(Minute(dDate)),2)+RIGHT("00"+Trim(Second(dDate)),2)
End Function
%>
13.获取随机数函数
<%
Function randStr(num)
  strings="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  str=split(strings,",")
  for i=1 to num
  Randomize
  str1=str(int((ubound(str))*rnd))
  returnstr=returnstr&str1
  next
  ranStr=returnstr
End Function
%>

14.验证数字
<script language="javascript">
function checkNum(Num){
  var Expression=/^[1-9]+[0-9]*/d$/;
  var re=new RegExp(Expression);
  if(re.test(Num)==true){
    return true;}
  else{
    return false;}
}
</script>
15.验证E-mail地址
<script language="javascript">
function checkEmail(email){
  var Expression=//w+([-+.']/w+)*/./w+([-.]/w+)*/;
  var re=new RegExp(Expression);
  if(re.test(email)==true){
    return true;}
  else{
    return false;}
}
</script>
16.验证网址
<script language="javascript">
function checkUrl(url){
  var Expression=/http(s)?:([/w-]+/.)+[/w-]+(//[/w-.//?%&=]*)?/;
  var re=new RegExp(Expression);
  if(re.test(url)==true){
    return true;}
  else{
    return false;}
}
</script>
17.验证身份证号码
<script language="javascript">
function checkCode(code) {
  var Expression=//d{17}[/d|X]|/d{15}/;
  var re=new RegExp(Expression);
  if(re.test(code)==true){
    return true;}
  else{
    return false;}
}
</script>
18.使用框架结构
<frameset rows="93,*,25" frameborder="NO" border="0" framespacing="0">
  <frame src="frame_top.asp" name="topFrame" scrolling="NO" noresize>
  <frameset cols="220,*" frameborder="NO" border="1" framespacing="0">
  <frame src="mg_left.asp" name="leftFrame" scrolling="no" noresize>
  <frame src="frame_right.asp" name="mainFrame">
 </frameset>
  <frame src="frame_bottom.asp" name="bottomFrame" scrolling="NO" noresize>
</frameset>
<noframes>
<body>
</body>
</noframes>
19.从数据库中直接执行删除操作
  id=Request.Form("id")
  sqlstr="delete from tab_lword where id="&id&""
  conn.Execute(sqlstr)
  Response.Redirect("mg_lword.asp")
20.从数据中直接执行插入操作
  str1=Str_filter(Request.Form("txt_name"))
  str2=Str_filter(Request.Form("txt_passwd"))
  sqlstr="insert into tab_manager(Mname,Mpasswd) values('"&str1&"','"&str2&"')" 
  conn.Execute(sqlstr)
  Response.Redirect("mg_manager.asp")
21.从数据库中直接执行修改操作
  str1=Str_filter(Request.Form("txt_name2"))
  str2=Str_filter(Request.Form("txt_passwd2"))
  id=Request.Form("id") 
  sqlstr="update tab_manager set Mname='"&str1&"',Mpasswd='"&str2&"' where id="&id&""
  conn.Execute(sqlstr) 
  Response.Redirect("mg_manager.asp")

22.实现打印功能
<style type="text/css">
@media print{
.print{display:none /*应用该样式的对象将不可见*/
}
</style>
<body>
<object id=WebBrowser classid=ClSID:8856F961-340A-11D0-A96B-00C04Fd705A2 width="0" height="0"></object>
<table>打印的内容</table>
<a href="#" onClick="document.all.WebBrowser.Execwb(7,1)" class="print">打印预览</a>
<a href="#" onClick="document.all.WebBrowser.Execwb(6,1)" class="print">打印</a>
<a href="#" onClick="document.all.WebBrowser.Execwb(6,6)" class="print">直接打印</a>
<a href="#" onClick="document.all.WebBrowser.Execwb(8,1)" class="print">页面设置</a>

23.上传图片文件
<script language="javascript">
function mycheck()
{
if(formup.file1.value=="")
{alert("商品的图片信息不能为空！");formup.file1.focus();return;false}
formup.submit();
}
</script>
<table width="452" height="27" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="formup" method="post" action="UpLoad.asp" enctype="multipart/form-data">
<!--必须为 enctype="multipart/form-data"格式-->
    <tr align="center" valign="middle">
      <td align="left" id="upid" height="20" width="400" bgcolor="#FFFFFF">
        <input name="file1" type="file" class="tx1" style="width:200" value="" size="30">
        <input type="button" name="Submit" value="上传" onClick="mycheck();">
      <span class="STYLE2">(注意：先进行图片上传)      </span></td>
    </tr>
</form>
Upload.asp文件   先将图片信息保存在一个session中，当点击总体提交时再把图片信息写入数据库
<%
'将图片保存到数据库中
imgsize=request.TotalBytes
imgData=request.BinaryRead(imgsize)
Hcrlf=chrB(13)&chrB(10)
Divider=leftB(imgdata,clng(instrB(imgData,Hcrlf))-1)
dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4
Dend=instrB(dstart+1,imgdata,divider)-dstart
Mydata=MidB(imgdata,dstart,dend)
Session("pic")=Mydata
%>

</table>