⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sucess.asp

📁 报名系统。带源代码的asp 可以自动在实现网上报名]
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body text=000000 bgcolor=000000 leftmargin="20" style="background-color: #ffffff">
<%
function Accuss

      	response.write "<br>报名成功!请等待本站的回复.<br>"
  
  if len(mingzi)>0 then
  	response.write "<br>您的姓名："&server.htmlencode(replace(mingzi,"''","'"))
  end if
  if len(danwei)>0 then
  	response.write "<br>工作单位:<strong>"&server.htmlencode(replace(danwei,"''","'"))&"</strong>"
  end if
  if len(dianhua)>0 then
  	response.write "<br>您的电话:"&server.htmlencode(replace(dianhua,"''","'"))&"</a>"
  end if
  if len(youjian)>0 then
  	response.write "<br>您的住址:"&server.htmlencode(replace(youjian,"''","'"))&"</a>"
  end if
  if len(zhuzhi)>0 then
  	response.write "<br>电子邮箱:"&server.htmlencode(replace(zhuzhi,"''","'"))
  end if
  if len(shuomin)>0 then
        shuomin=replace(shuomin,"<","&lt;")
        shuomin=replace(shuomin,">","&gt;")
        shuomin=replace(shuomin,chr(34),"&quot;")
  	response.write "<hr size=1>建议想法:<pre>"&replace(shuomin,"''","'")&"<hr size=1></pre>"
  end if
  
  response.write "<br>提交时间:"&ndatetime
end function

mingzi=request("mingzi")
if len(mingzi)>50 then
   response.write "你的名字这么长呀?我记不住啦!!"
   response.end
end if

danwei=request("danwei")
if len(danwei)>200 then
   response.write "你的单位名字好长呀?我撑不下了!!"
   response.end
end if

if danwei="" then
   response.write "错误!你要为提供您的地址才对呀!!"
   response.end
end if

dianhua=request("dianhua")
if len(dianhua)>400 then
   response.write "太长了,填不下了!!"
   response.end
end if

xiangmu=request("xiangmu")
if isNumeric(xiangmu)>=0 then
   xiangmu=0
else
   xiangmu=Cint(xiangmu)
end if
if xiangmu<1 or xiangmu>chooseNum then xiangmu=1

youjian=request("youjian")
if len(youjian)>100 then
   response.write "你的邮箱地址太长了,填不下了!!"
   response.end
end if

zhuzhi=request("zhuzhi")
if len(zhuzhi)>200 then
   response.write "你的地址太长了,填不下了!!"
   response.end
end if

shuomin=request("shuomin")
if len(zhuzhi)>3200 then
   response.write "你的留言内容太长了,截掉一些内容或分成多次留言吧!"
   response.end
end if

jiaofei=request("jiaofei")
%>
<!-- #include file=conn.asp -->
<%
ndatetime=now()
if mingzi<>"" then mingzi=replace(mingzi,"'","''")
if danwei<>"" then danwei=replace(danwei,"'","''")
if dianhua<>"" then dianhua=replace(dianhua,"'","''")
if youjian<>"" then youjian=replace(youjian,"'","''")
if zhuzhi<>"" then zhuzhi=replace(zhuzhi,"'","''")
if shuomin<>"" then shuomin=replace(shuomin,"'","''")

con.Execute " INSERT INTO baoming " _
        & "(shijian,mingzi,danwei,dianhua,xiangmu,youjian,zhuzhi,shuomin,jiaofei) VALUES " _
	& "('"&ndatetime&"', '" & mingzi &"','" & danwei & "','"& dianhua &"'," & xiangmu &",'" & youjian &"','" & zhuzhi &"','" & shuomin &"','" & jiaofei &"');"
con.close
set con=nothing
Accuss()
%>
<p>
 <span class="p9">
 <font color="#000000">【</font><a href="index.asp"><font color="#000000">返回</font></a><font color="#000000">】 </font>
</span>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -