addmed.asp

仿百度搜索程序修正版

<%if trim(request("gq"))="" then response.redirect "addmesg.asp?w=1&adwh=" &request("n")
if trim(request("t1"))="" then response.redirect "addmesg.asp?w=2&adwh=" &request("n")
if trim(request("t5"))="" then response.redirect "addmesg.asp?w=3&adwh=" &request("n")
if trim(request("t4"))="" then response.redirect "addmesg.asp?w=4&adwh=" &request("n")
if trim(request("t3"))="" then response.redirect "addmesg.asp?w=5&adwh=" &request("n")
if len(request("t3"))>1000 then response.redirect "addmesg.asp?w=6&adwh=" &request("n")
%>
<!--#include file="top.htm"-->
</head>



<div align="center">
  <center>
    
  </center>  
</div>  
  
<div align="center">  
  <center>
    <table width="764" border="0" cellspacing="2" cellpadding="2">
      <tr> 
        <td width="540" valign="top" bgcolor="#F4FBF8"> 
          <table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td class=f14><strong><font color="#FF6600">·添加成功</font></strong></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td class=f14><div align="center"><font color="#FF0000">恭喜！您的信息已经成功能添加到本站信息库！</font></div></td>
            </tr>
          </table> 
          <%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("data.mdb")  &";Driver={Microsoft Access Driver (*.mdb)};"

t1=replace(request("t1"),"<","〈")
t1=replace(t1,"'","''")
t2=replace(request("t2"),"<","〈")
t2=replace(t2,"'","‘’")
t4=replace(request("t4"),"<","〈")
t4=replace(t4,"'","‘’")
t5=replace(request("t5"),"<","〈")
t5=replace(t5,"'","‘’")
gq=replace(request("gq"),"<","〈")
gq=replace(gq,"'","‘’")
n=replace(request("n"),"<","〈")
n=replace(n,"'","‘’")
d1=replace(request("d1"),"<","〈")
d1=replace(d1,"'","''")
sz = "'" & t1 & "','" & t2 & "','" & t4 & "','" & t5 & "','" & gq & "','" & request("t3") & "','" & n &"','" & d1 &"','" & now & "',#" & dateadd("d",request("d2"),date) & "#"
if session("ad")=0 then com.Execute("INSERT INTO msg ( tit,mal,tel,lxr,gq,msg,kin,whe,tim,edt ) VALUES(" & sz & ")")
session("ad")=1%>
        </td>
        <td width="209" valign="top" bgcolor="#DCEBE1"> <!--#include file="lift.htm"--></td>
      </tr>
    </table>
    </center>   
</div>   
   
<div align="center">   
  <center>
    <!--#include file="bottom.htm"-->
  </center>              
</div>              
              
</body>              
              
</html>