bkqg.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 159 行
ASP
159 行
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<html>
<head>
<title><%=webname%>--图书求购登记</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<%
dim action
action=request.QueryString("action")
select case action
case ""
%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<br>
<div align="center"><b>告诉我们您想要什么书？</b><br><br>请您在下面提供尽量详细的信息，以便我们以更准确、迅速的找到您要的商品，并及时通知您！</div>
<table width="50%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr><td colspan=2>
第一步（共两步）填写商品信息：</tr>
<form name="qginfo" method="post" action="bkqg.asp?action=save">
<tr>
<td style="padding-left:80px"><font color=red>*</font>书名：</td>
<td height="22"><input name="bookname" type="text" id="bookname" size="30"></td>
</tr>
<tr>
<td style="padding-left:88px">作者：</td>
<td height="22"><input name="bookzz" type="text" id="bookzz" size="30"></td>
</tr>
<tr>
<td style="padding-left:76px">出版社：</td>
<td height="22"><input name="bookchuban" type="text" id="bookchuban" size="30"></td>
</tr>
<tr>
<td style="padding-left:82px">ISBN：</td>
<td height="22"><input name="isbn" type="text" id="isbn" size="30">
</tr>
<tr>
<td valign="top" style="padding-left:65px">更多信息：<br></td>
<td>
<textarea name="bookxx" cols="32" rows="5" id="bookxx"></textarea></td>
</tr>
<tr><td colspan=2>第二步（共两步）填写到货后联系方式：（须选其一）<font color=red>*</font></tr>
<tr>
<td><input type="checkbox" name="email" onclick="return myqgemail();">请用email通知我：
<td><input disabled="true" name="qgemail" type="text" id="qgemail" size="30"></td>
<tr>
<td><input type="checkbox" name="tele" onclick="return myqgtele();">请用短信通知我：
<td><input disabled="true" name="qgtele" type="text" id="qgtele" size="30"></td>
<tr>
<td colspan=2 height="28" align="center"><input type="submit" name="Submit4" value="确定" onclick="return checkqg();"
<td>
</tr>
</form>
</table>
<%case "save"
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_qbooks",conn,1,3
rs.addnew
rs("bookname")=trim(request("bookname"))
rs("bookzz")=request("bookzz")
rs("bookchuban")=request("bookchuban")
rs("isbn")=request("isbn")
rs("bookxx")=htmlencode2(trim(request("bookxx")))
if request("qgemail")<>"" then
rs("qgemail")=request("qgemail")
end if
if request("qgtele")<>"" then
rs("qgtele")=request("qgtele")
end if
rs("qgdate")=now
rs.update
rs.close
set rs=nothing
response.write "<br><br><center>您已经成功添加了您想要购买产品的求购登记！<br><br><a href=bkqg.asp>[继续求购登记产品]</a> <a href=index.asp>[返回首面]</a></center>"
end select%>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>
<SCRIPT LANGUAGE="VBScript">
sub myqgemail()
if document.qginfo.email.checked then
document.qginfo.qgemail.disabled="false"
else
document.qginfo.qgemail.disabled="true"
document.qginfo.qgemail.value=""
end if
end sub
sub myqgtele()
if document.qginfo.tele.checked then
document.qginfo.qgtele.disabled="false"
else
document.qginfo.qgtele.disabled="true"
document.qginfo.qgtele.value=""
end if
end sub
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkqg()
{
if(checkspace(document.qginfo.bookname.value)) {
document.qginfo.bookname.focus();
alert("您没有填写书名！");
return false;
}
if(document.qginfo.qgemail.value.length!=0 || document.qginfo.qgtele.value.length!=0)
{
if(document.qginfo.qgemail.value.length!=0)
{
if (document.qginfo.qgemail.value.charAt(0)=="." ||
document.qginfo.qgemail.value.charAt(0)=="@"||
document.qginfo.qgemail.value.indexOf('@', 0) == -1 ||
document.qginfo.qgemail.value.indexOf('.', 0) == -1 ||
document.qginfo.qgemail.value.lastIndexOf("@")==document.qginfo.qgemail.value.length-1 ||
document.qginfo.qgemail.value.lastIndexOf(".")==document.qginfo.qgemail.value.length-1)
{
alert("Email地址格式不正确！");
document.qginfo.qgemail.focus();
return false;
}
}
}
else
{
alert("联系方式不能同时都为空！");
document.qginfo.bookxx.focus();
return false;
}
}
//-->
</script>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?