?? dodeliverwebsite.asp
字號:
<!--#include file="globe/DataConnect.asp"-->
<%
Dim Num,SubName,SubNum,UserName,UserEmail,WebsiteName,Introduce,WebsiteUrl,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"))
WebsiteName=trim(request.form("WebsiteName"))
Introduce=trim(request.form("Introduce"))
WebsiteUrl=trim(request.form("WebsiteUrl"))
DTime=now
set rs=server.createobject("adodb.recordset")
sql="Select * From Website Where SubName='"&SubName&"'"
rs.Open sql,cnn,1,1
total=rs.RecordCount
if total<3 then
sql="INSERT INTO Website (SubName,UserName,UserEmail,WebsiteName,WebsiteUrl,Introduce,SubNum,Num,DTime) VALUES ('"&SubName&"','"&UserName&"','"&UserEmail&"','"&WebsiteName&"','"&WebsiteUrl&"','"&Introduce&"',"&SubNum&","&Num&",'"&DTime&"')"
Cnn.Execute sql
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="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">
<%=WebsiteName%>
</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://<%=WebsiteUrl%>
</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 + -