📄 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")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>非常信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Window-target content=_top>
<META content="大大鱼工作室，E天工作室，网站设计，徐州信息网，徐州114信息网，徐州房产" name=KEYWORDS>
<META content="home page" name=CATEGORY>
<META content=all name=ROBOTS>
<LINK href="images/style.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#82862B leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file="top.htm"-->
<table width="100" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<!--DWLayoutTable-->
<tr>
<td width="484" height="25" valign="top"><table width="498%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="498" height="25" valign="bottom" background="../img/wz-bg.jpg">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18"> <div align="center"><strong></strong></div>
<div align="left"><strong><font color="#FF6600"> 添加成功</font></strong></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" valign="top"> <table width="500" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="496" valign="top" class="tde"><table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23" valign="top"> <table width="100%" height="300" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="20" valign="middle"> <div align="center">
<p><font color="#FF0000">恭喜！您的信息已经成功能添加到本站信息库！</font></p>
<p><a href="index.asp"><font color="#FF0000">返回</font></a></p>
</div></td>
</tr>
</table>
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("data.asp") &";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%>
<CENTER>
</center></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<TR>
<!--#include file="end.htm"-->
<!.000 ->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -