📄 adminlyadd.asp
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="common.asp" -->
<%
set HyClubRs=nothing
set HyClubRs=server.CreateObject("adodb.recordset")
sql = "select Hy.HyName from hy left join hyClub on hy.ID=HyClub.HyID"
HyClubRs.Open sql,conn
%>
<script>
function viewa(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=100,width=575,height=240');
}
</script>
<html><head><title><%=WebName%>·在线留言</title>
<meta content="zh-cn" http-equiv="Content-Language">
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link href="include/e1.css" rel="stylesheet">
<meta content="Microsoft FrontPage 5.0" name="GENERATOR"></head>
<body bgColor="#ffffff" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td bgColor="#FFFFFF" height="4"></td>
</tr>
</table>
<center>
</center>
<center>
<table width="770" height="428" border="0" align="center" cellPadding="0" cellSpacing="0" bordercolor="#111111" style="border-collapse: collapse">
<tbody>
<tr>
<td vAlign="top" height="401" width="769">
<table border="0" cellPadding="0" cellSpacing="0" width="769">
<tbody>
<tr>
<td align="right" width="38">
</td>
<td height="25" width="52"><b><font color="#cc6600"> </font></b><img src="image/x_4.gif" WIDTH="37" HEIGHT="18"> </td>
<td height="25" width="679"><b> <span style="font-size: 10.5pt; letter-spacing: 1">留言咨询</span></b></td>
</tr></tbody></table>
<div align="center">
<center>
</center>
</div>
<center>
<table border="0" cellSpacing="1" width="670" style="border-collapse: collapse" bordercolor="#111111" background="image/bg1.gif" height="192">
<tbody>
<tr>
<td align="middle" height="169" width="666">
<table border="0" cellPadding="0" cellSpacing="0" height="160" width="100%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#FFFFFF">
<tbody>
<tr vAlign="top">
<td colSpan="5" height="160">
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff" style="border-collapse: collapse">
<tr>
<td>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="52">
<tr>
<td height="35" bgcolor="CCDDEE">
<div align="center"><strong><font color="#FF0000" size="3">添 加 留 言</font></strong></div></td>
</tr>
<tr>
<td height="56" valign="top">
<table width="100%" border="1" cellpadding="0" cellspacing="1" bgcolor="F4F4F4" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<form language="javascript" name="GbAdd" method="post" action="adminlyAdd.asp?add" onsubmit="return GbAdd_onsubmit()">
<tr>
<td width="120" height="30" align="right">会员姓名：</td>
<td width="640" height="30">
<input name="Uemail" type="text" size="20">
<font color="#FF0000">*</font>
请填写留言接收人的姓名。</td>
</tr>
<tr>
<td width="120" height="30" align="right">电话：</td>
<td height="30">
<input name="tel2" type="text" maxlength="20" size="20">
（请填好您的联系电话。）</td>
</tr>
<tr>
<td width="120" height="30" align="right">来自：</td>
<td height="30"> <select name="where2"> <option selected>==请选择==</option>
<option value="河南">河南</option>
<option value="北京">北京</option> <option value="上海">上海</option>
<option value="天津">天津</option> <option value="重庆">重庆</option>
<option value="河北">河北</option> <option value="山西">山西</option>
<option value="内蒙古">内蒙古</option> <option value="辽宁">辽宁</option>
<option value="吉林">吉林</option> <option value="黑龙江">黑龙江</option>
<option value="江苏">江苏</option>
<option value="安徽">安徽</option> <option value="福建">福建</option>
<option value="江西">江西</option> <option value="山东">山东</option>
<option value="四川">四川</option>
<option value="浙江">浙江</option> <option value="湖北">湖北</option>
<option value="云南">云南</option> <option value="湖南">湖南</option>
<option value="广东">广东</option> <option value="台湾">台湾</option>
<option value="广西">广西</option> <option value="海南">海南</option>
<option value="贵州">贵州</option> <option value="西藏">西藏</option>
<option value="陕西">陕西</option> <option value="甘肃">甘肃</option>
<option value="青海">青海</option> <option value="宁夏">宁夏</option>
<option value="新疆">新疆</option> <option value="香港">香港</option>
<option value="澳门">澳门</option> <option value="台湾">台湾</option>
<option value="美国">美国</option> <option value="新加坡">新加坡</option>
<option value="德国">德国</option> <option value="法国">法国</option>
<option value="英国">英国</option> <option value="加拿大">加拿大</option>
<option value="新西兰">新西兰</option> <option value="澳大利亚">澳大利亚</option> <option value="巴西">巴西</option>
<option value="韩国">韩国</option> <option value="日本">日本</option>
<option value="意大利">意大利</option> <option value="俄罗斯">俄罗斯</option> <option value="其它">其它</option></select></td>
</tr>
<tr>
<td width="120" height="30" align="right">标题：</td>
<td height="30">
<input name="Title" type="text" size="62" maxlength="50">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="120" align="right">内容：</td>
<td><textarea name="Content" cols="68" rows="8"></textarea>
<font color="#FF0000">*</font></td>
</tr>
<tr align="center">
<td height="30" colspan="2"> <input type="submit" name="Submit" value="提 交">
<input type="reset" name="reset" value="重 写"> </td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td bgColor="#F2F2F2" height="1"></td>
</tr>
</table></center>
</div>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</td></tr></tbody></table></td></tr>
</tbody></table>
</center>
</td>
<script language="javascript" id="QzeNet">
<!--
function GbAdd_onsubmit()
{
if(document.GbAdd.U_Name.value.length<1)
{
alert("您必须输入您的姓名!");
document.GbAdd.U_Name.focus();
return false;
}
if(document.GbAdd.Title.value.length<1)
{
alert("您必须输入您的咨询标题!");
document.GbAdd.Title.focus();
return false;
}
if(document.GbAdd.Content.value.length<1)
{
alert("您必须输入您的留言内容!");
document.GbAdd.U_Name.focus();
return false;
}
if(document.GbAdd.Content.value.length>600)
{
alert("您输入留言内容超过600字!");
document.GbAdd.U_Name.focus();
return false;
}
}
//-->
</script>
<% Dim Uname,tel1,Uemail,where1,Utitle,Ucontent
Uname = "管理员"
tel1 = Trim(request.form("tel2"))
Uemail = Trim(request.form("Uemail"))
where1 = Trim(request.form("where2"))
Utitle = request.form("Title")
Ucontent = request.form("Content")
'HTML支持
function htmlencode(str)
htmlencode=server.htmlencode(str)
htmlencode=replace(replace(htmlencode,chr(13),"<br>"),"'","’")
end function
set rs=server.createobject("adodb.recordset")
sqltext="select * from GuestBook"
rs.open sqltext,conn,3,3
if request.querystring="add" then
'添加一条留言到数据库
rs.addnew
rs("UserName")=Uname
rs("tel")=tel1
rs("UserEmail")=Uemail
rs("where")=where1
rs("Title")=Utitle
rs("Content")=htmlencode(Ucontent)
rs("AddTime")=cstr(now())
rs.update
rs.close
conn.close
Response.Redirect "khbook.asp"
End if
%>
<td bgColor="#ff8400" width="2" rowspan="2" height="428"></td></tr>
<tr>
<td width="769"> </td>
</tr>
</tbody></table></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -