📄 dodeliverbook.asp
字号:
<!--#include file="globe/DataConnect.asp"-->
<%
Dim Num,SubName,SubNum,UserName,UserEmail,BookName,Introduce,FileUrl,DTime,rs,sql,total
Num=trim(request.form("Num"))
SubName=trim(request.form("SubName"))
SubNum=trim(request.form("SubNum"))
UserName=trim(request.form("UserName"))
UserEmail=trim(request.form("UserEmail"))
BookName=trim(request.form("BookName"))
Introduce=trim(request.form("Introduce"))
FileUrl=trim(request.form("FileUrl"))
DTime=now
set rs=server.createobject("adodb.recordset")
sql="Select * From Book Where SubName='"&SubName&"'"
rs.Open sql,cnn,1,1
total=rs.RecordCount
if total<3 then
sql="INSERT INTO Book (SubName,UserName,UserEmail,BookName,FileUrl,Introduce,SubNum,Num,DTime) VALUES ('"&SubName&"','"&UserName&"','"&UserEmail&"','"&BookName&"','"&FileUrl&"','"&Introduce&"',"&SubNum&","&Num&",'"&DTime&"')"
Cnn.Execute sql
Set sql = Nothing: Set rs = Nothing
%>
<html>
<head>
<title>DoDeliverBook</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</head>
<body bgcolor="#ccddff">
<div id="Layer1" style="position:absolute; left:31px; top:79px; width:536px; height:250px; z-index:1">
<table width="100%" border="1" height="250" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0">
<tr>
<td width="14%" height="30"><font color="#339933">推荐人</font></td>
<td width="34%" height="30">
<%=UserName%>
</td>
<td width="15%" height="30"><font color="#339999"><font color="#339933">E-Mail</font></font></td>
<td width="37%" height="30">
<%=UserEmail%>
</td>
</tr>
<tr>
<td width="14%" height="34"><font color="#339933">书名</font></td>
<td height="34" colspan="3">
<%=BookName%>
</td>
</tr>
<tr>
<td width="14%" height="10">
<p> <font color="#339933"> 介</font></p>
<p> </p>
<p><font color="#339933"> 绍</font></p>
</td>
<td height="10" colspan="3">
<textarea name="Introduce" rows="6" cols="62"><%=Introduce%></textarea>
</td>
</tr>
<tr>
<td width="14%" height="34"><font color="#339933">异地地址</font></td>
<td height="34" colspan="3">
Http://<%=FileUrl%>
</td>
</tr>
</table>
</div>
<div id="Layer2" style="position:absolute; left:31px; top:21px; width:539px; height:30px; z-index:2">
<table width="100%" border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" height="26">
<tr>
<td height="30"><font color=#3366CC>类属：【<%=SubName%>】</font> <font color=#336699>推荐完成，同学会感谢你的推荐的！</font> <a href="list.asp?Num=<%=Num%>&SubName=<%=SubName%>&SubNum=<%=SubNum%>"><返回></a></td>
</tr>
</table>
</div>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>
<%
else
Set sql = Nothing: Set rs = Nothing
%>
<html>
<head>
<title>DoDeliverWebsite</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</head>
<body bgcolor="#ccddff">
<div id="Layer2" style="position:absolute; left:39px; top:100px; width:539px; height:30px; z-index:2">
<table width="100%" border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" height="26">
<tr>
<td height="30"> <font color=#336699>同学,贵精不贵多，你还是下次再推荐吧！</font> <a href="list.asp?Num=<%=Num%>&SubName=<%=SubName%>&SubNum=<%=SubNum%>"><返回></a></td>
</tr>
</table>
</div>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -