📄 addsite.asp
字号:
<!--#include file="top.htm" -->
<%
if request.servervariables("REQUEST_METHOD")<>"POST" then
response.redirect "index.asp"
response.end
end if
%>
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<html>
<head>
<title>3鸟设社网站评测—网站加盟</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
</head>
<body leftmargin="0" bgcolor="#FFFFFF" topmargin="0">
<%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where pickuser='" & Trim(request.form("pickuser")) & "'",conn,1,3
if not(rs.bof and rs.eof) then
%>
<table width="760" height="528" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="27" height="486" background="images/bg.gif"></td>
<td width="709" height="486" valign="top"><table width="440" border="0" align="center" cellspacing="0">
<tr>
<td width="438" valign="top">
<div align="center"><br>
<br>
<br>
<br>
<table width="400" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#FF6633">
<td bgcolor="#EDB7D1" height="17"> <div align="center"><font color="#FFCC00"><b><font color="#FFFFFF">3鸟设社网站评测提示</font></b></font></div></td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF"> <p> </p>
<p align="center"><font color="#336699">您所使用的用户名称已经存在，请返回后重新选择！</font></p>
<p align="center">
<input type="button" name="Button" value=" 返 回 " class="buttonface" onClick="javascript:history.back()">
</p>
<p align="center"> </p></td>
</tr>
</table>
<%
else
rs.addnew
rs("pickuser")=htmlencode2(Trim(request.form("pickuser")))
rs("pickpwd")=htmlencode2(Trim(request.form("pickpwd")))
rs("pickname")=htmlencode2(Trim(request.form("pickname")))
rs("pickemail")=htmlencode2(Trim(request.form("pickemail")))
rs("picksite")=htmlencode2(Trim(request.form("picksite")))
rs("pickurl")=htmlencode2(Trim(request.form("pickurl")))
rs("pickicon")=htmlencode2(Trim(request.form("pickicon")))
rs("pickmemo")=htmlencode2(Trim(request.form("pickmemo")))
rs("pickjink")=htmlencode2(Trim(request.form("pickjink")))
rs("picktype")=Clng(request.form("picktype"))
rs("pickdiyu")=Clng(request.form("pickdiyu"))
rs("pickleibie")=Clng(request.form("pickleibie"))
rs.update
set rsa=server.createobject("adodb.recordset")
rsa.open "Select * from zkpick where pickuser='"&Trim(request.form("pickuser"))&"' and pickpwd='"&Trim(request.form("pickpwd"))&"'",conn
if rsa.eof and rsa.bof then
%>
</div></td>
</tr>
<tr>
<td valign="top">
<div align="center"><br>
<br>
<br>
<br>
<table width="400" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#FF6633">
<td bgcolor="#EDB7D1" height="17"> <div align="center"><font color="#FFCC00"><b><font color="#FFFFFF">3鸟设社网站评测提示</font></b></font></div></td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF"> <p> </p>
<p align="center"><font color="#336699">数据处理过程中发生错误，请与本盟<a href="mailto:fujian@3niao.com">管理员</a>联系，谢谢！</font></p>
<p align="center">
<input type="button" name="Button22" value=" 返 回 " class="buttonface" onClick="javascript:history.back()">
</p>
<p align="center"> </p></td>
</tr>
</table>
<% else %>
</div></td>
</tr>
<tr>
<td valign="top">
<div align="center"><br>
<br>
<br>
<br>
<table width="437" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1">
<tr >
<td height="19" BGCOLOR="#EDB7D1" width="435"> <div align="center"><font color="#FFCC00"><b><font color="#FFFFFF">3鸟设社网站评测祝贺</font></b></font></div></td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF" width="435"> <p> </p>
<p align="center"><font color="#336699">恭喜您!加盟<b>3鸟设社网站评测</b>成功！</font></p>
<p align="center"><font color="#336699">请您务必要记住您的用户名称和用户密码，以便日后可以修改您的信息！</font></p>
<p align="center"><font color="#336699">您的网站已经成功的加盟了本站！请把下面的代码尽快加入到您的页面中，开始您的</font><font color="#336699">竞投排名</font><font color="#336699"><br>
如果想和本站交换友情连接,请到本站里申请, 谢谢你的支持!</font></p>
<p align="center">
<textarea name="textfield" cols="50" rows="4" wrap="VIRTUAL" class="smallInput"><%
sername=request.ServerVariables("server_name")
scrname=request.ServerVariables("script_name")
response.write ("<a href=http://"&sername&left(scrname,len(scrname)-11)&"show.asp?id="&rs("pickid")&" target=_blank><img src=http://"&sername&left(scrname,len(scrname)-11)&"image/"&rs("pickgrade")&".gif title=权威性网站测评机构! border=0 ></a>")
%></textarea>
</p>
<p align="center">
<input type="button" name="Button2" value=" 返 回 " class="buttonface" onClick="javascript:location.href='index.asp'">
</p>
<p align="center"> </p></td>
</tr>
</table>
<%
end if
rsa.close
set rsa=nothing
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table> </td>
<td width="24" height="486" background="images/bg.gif"></td>
</tr>
</table>
</body>
</html>
<!--#include file="bottom.htm" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -