📄 queshu.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--缺书登记</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/default.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<body>
<%dim action,username
username=request.cookies("bookshop")("username")
action=request.QueryString("action")
if username=""then
response.write "<script language=javascript>alert('请您先登陆后再进行缺书登记！');window.close()</script>"
response.End
end if
select case action
case ""%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF8E19">
<tr>
<td height="20"><div align="center" class="style1">缺 书 登 记</div></td>
</tr>
<tr>
<td height="332" bgcolor="#FFFFFF">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<form name="queshu" method="post" action="queshu.asp?action=save"><tr bgcolor="#FDFADD">
<td colspan="2" style="padding-left:20px"><font color="#ff6600">所需图书信息：</font></td>
</tr>
<tr bgcolor="#FDFADD">
<td colspan="2" style="padding-left:20px"><font color="#ff6600">您提供的信息完整准确,将有助于我们更快地找到您需要的图书！</font></td>
</tr>
<tr bgcolor="#FDFADD">
<td width="23%" style="padding-left:20px">书 名：</td>
<td width="77%" style="padding-left:10px"><input name="bookname" type="text" id="bookname"></td>
</tr>
<tr bgcolor="#FDFADD">
<td style="padding-left:20px">作 者：</td>
<td style="padding-left:10px"><input name="bookzz" type="text" id="bookzz"></td>
</tr>
<tr bgcolor="#FDFADD">
<td style="padding-left:20px">出版社：</td>
<td style="padding-left:10px"><input name="bookchuban" type="text" id="bookchuban"></td>
</tr>
<tr bgcolor="#FDFADD">
<td style="padding-left:20px">本书其他信息：</td>
<td style="padding-left:10px"><textarea name="bookmsg" cols="40" rows="8" id="bookmsg"></textarea></td>
</tr>
<tr bgcolor="#FDFADD">
<td colspan="2" style="padding-left:20px"><font color="#ff6600">您的联系方式：</font></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select userzhenshiname,useremail,usertel from [shop_users] where username='"&username&"' ",conn,1,1%><tr bgcolor="#FDFADD">
<td height="18" style="padding-left:20px">Email：</td>
<td style="padding-left:10px"><input name="useremail" type="text" id="useremail" value="<%=trim(rs("useremail"))%>"></td>
</tr>
<tr bgcolor="#FDFADD">
<td style="padding-left:20px">姓 名：</td>
<td style="padding-left:10px"><input name="userzhenshiname" type="text" id="username" value="<%=trim(rs("userzhenshiname"))%>"></td>
</tr>
<tr bgcolor="#FDFADD">
<td style="padding-left:20px">联系电话：</td>
<td style="padding-left:10px"><input name="usertel" type="text" id="usertel" value="<%=trim(rs("usertel"))%>"></td>
</tr>
<%rs.close
set rs=nothing%>
<tr bgcolor="#FDFADD">
<td height="35" style="padding-left:20px"> </td>
<td style="padding-left:10px"><br>
<input type="submit" name="Submit" value="确认发送" onClick="return queshucheck();">
<input type="button" name="Submit3" value="关闭窗口" onclick="javascript:window.close()"> <br>
<br> </td>
</tr></form>
</table>
</td>
</tr>
</table>
<%case "save"
if session("queshu")=minute(now) then
call queshuerr()
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_queshu",conn,1,3
rs.addnew
rs("bookname")=trim(request("bookname"))
rs("bookzz")=trim(request("bookzz"))
rs("bookchuban")=trim(request("bookchuban"))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("username")=username
rs("usertel")=trim(request("usertel"))
rs("useremail")=trim(request("useremail"))
rs("adddate")=now()
rs.update
rs.close
set rs=nothing
session("queshu")=minute(now)
call queshuok()
end if
end select%>
<%sub queshuok()%>
<br><br><br><br><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" bgcolor="#F5F5F5"><br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> 您的缺书反馈信息已成功登记在我们的数据库中，我们会尽快帮您寻找，一有消息立即通过电子邮件的方式通知您，同时希望您能继续关注本站。</td>
</tr>
<tr>
<td><div align="center"><br>
<input type="submit" name="Submit2" value="关闭窗口" onclick="javascript:window.close()">
</div></td>
</tr>
</table>
<br>
</td>
</tr>
</table><%end sub%>
<%sub queshuerr()%>
<br><br><br><br><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" bgcolor="#F5F5F5"><div align="center"><br>
对不起，您不可以重复登记，请稍后再继续....<br>
<br>
<input type="submit" name="Submit22" value="关闭窗口" onclick="javascript:window.close()">
<br>
<br>
</div></td>
</tr>
</table>
<%end sub%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function queshucheck()
{
if(checkspace(document.queshu.username.value)) {
document.queshu.username.focus();
alert("您的姓名不能为空，请重新输入！");
return false;
}
if(checkspace(document.queshu.usertel.value)) {
document.queshu.usertel.focus();
alert("您的联系电话不能为空，请重新输入！");
return false;
}
if(checkspace(document.queshu.bookname.value)) {
document.queshu.bookname.focus();
alert("书名不能为空，请重新输入！");
return false;
}
if(checkspace(document.queshu.bookzz.value)) {
document.queshu.bookzz.focus();
alert("图书作者不能为空，请重新输入！");
return false;
}
if(checkspace(document.queshu.bookchuban.value)) {
document.queshu.bookchuban.focus();
alert("出版社不能为空，请重新输入！");
return false;
}
if(document.queshu.useremail.value.length!=0)
{
if (document.queshu.useremail.value.charAt(0)=="." ||
document.queshu.useremail.value.charAt(0)=="@"||
document.queshu.useremail.value.indexOf('@', 0) == -1 ||
document.queshu.useremail.value.indexOf('.', 0) == -1 ||
document.queshu.useremail.value.lastIndexOf("@")==document.queshu.useremail.value.length-1 ||
document.queshu.useremail.value.lastIndexOf(".")==document.queshu.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.queshu.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.queshu.useremail.focus();
return false;
}
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>
</body>
</html>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -