📄 test-2.asp.bak
字号:
<html>
<head>
<title>e-office---基于国际互联网的公办自动化系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="9pp.css" type="text/css">
</head>
<body bgcolor="3F6090" text="#000000" topmargin="5">
<p align="center"><br>
<img src="image/logo2.gif" width="485" height="68"></p>
<table width="80%" border="0" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="unnamed1" align="center">
<tr bgcolor="#666666">
<td class="unnamed1" colspan="2" height="5"> </td>
</tr>
<tr valign="top">
<td height="20">
<p>
<%dim radiobutton,text,name,email,tel,contact
fouunderr=false
dim errmsg
YyEmailAddress="webmaster@beibang.com"
title="我对贵网站的"+trim(Request.form("radiobutton"))+"的问题?"
content="<li>"+Request.Form("text")+"<br>姓名:"+Request.Form ("name")+"<br>邮箱:"+Request.Form ("email")+"<br>电话:"+Request.Form ("tel")+"<br>"+Request.Form ("contact")
if Request.Form ("cname")="" then
errmsg="<li>公司名不能为空</li>"
founderr=true
end if
if Request.Form ("name")="" then
errmsg="<li>您的大名不能为空</li>"
founderr=true
end if
if IsValidEmail(Request.Form ("email"))=false then
errmsg=errmsg+"<li>您的email有错误，否则没办法回复您的Email</li>"
founderr=true
end if
if Request.Form("text")="" then
errmsg=errmsg+"<li>内容不能为空</li>"
founderr=true
end if
if founderr=false then
name = "姓名：" + Request.Form ("name")&"("&request.form("lx")&")"&chr(13)
tel = "电话：" + Request.Form ("tel")&chr(13)
yemail = Request.Form ("email")
email = "email：" + Request.Form ("email")&chr(13)
add = "地址:"+ request("add")&chr(13)
text = chr(13)&request.form("radiobutton")&"："&chr(13)&chr(13)&request.form("text")
Set JMail = Server.CreateObject ("JMail.SMTPMail")
JMail.serveraddress ="mail.beibang.com"
JMail.Sender=yemail
JMail.Subject="用户反馈:" + Request.Form ("name")
JMail.Body="****************用户反馈*************"&chr(13)&chr(13)&name + tel + add + email + text
JMail.AddRecipient YyEmailAddress
JMail.Priority = 1
JMail.Execute
%>
<br>
</p>
<div align="center">
<p> </p>
<p><font size="3">恭喜你成功了！！！</font></p>
<p> </p>
</div>
<%else%>
<tr valign="top">
<td height="20">
<div align="center"><font size="4"><b>出错了！！！</b></font></div>
<div align="center"><font color="#FF0000"><br>
Sorry， 请再仔细检查以下的项目是否正确：</font><BR><font color="#FF0000">
<%response.write errmsg%>
<BR>
</div>
<li id="list3">
<div align="center">单击<a href="javascript:history.back(1)">后退</a>
</div>
</li>
<div align="center"><ul> </font></p> </div>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#000000">
<td height="20">
<div align="center"><font color="#FFFFFF">Copyright © 2000. All Backbone
Studio Digital All Rights Reserved</font></div>
</td>
</tr>
</table>
</body>
</html>
<%end if
function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function%>
</td>
</tr>
<tr bgcolor="#666666">
<td colspan="2" height="5"> </td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -