📄 writezl.asp
字号:
<%@ TRANSACTION =Requires_New%>
<%Response.Expires =0%>
<!--#include file="function.asp"-->
<%
'on error resume next
sub changesite(mc,url)
application.lock
onlinesite=application("onlinesite")
for i=0 to ubound(onlinesite)
if onlinesite(i)<>"" then
if left(onlinesite(i),instr(onlinesite(i),"$"))=request("id")&"$" then
siteid=left(onlinesite(i),instr(onlinesite(i),"$")-1)
onlinesite(i)=siteid&"$"&url&"$"&mc
exit for
end if
end if
next
application("onlinesite")=onlinesite
application.unlock
end sub
if session("yhm")="" or session("id")="" or isempty(session("yhm")) or isempty(session("id")) then
call disp_error("对不起，您的页面已经过期，请重新登录！","")
end if
id=request("id")
if id="" Or Not isNumeric(id) then
call disp_error("对不起，数据传送出错，请返回重试！","")
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>：：：：：快狗：：：：：</title>
<link rel="stylesheet" type="text/css" href="../style/style_b.css">
<META
content="free,freeworld,homepage,website,cgi,guestbook,免费主页,免费服务,免费联络,免费注册,免费评选,免费记数器,免费广告交换,统计,计数器,免费社区,免费"
name=keywords>
<META content=快狗为各位站长送上真正免费的好东西，记得推荐给您的朋友吧！ name=description>
<script language="javascript">
function check_form()
{
if (form.T2.value=="")
{
alert("请输入用户名！");
form.T2.focus();
return(false);
}
if (form.T1.value=="")
{
alert("请输入密码！");
form.T1.focus();
return(false);
}
return(true);
}
</script>
</head>
<body bgcolor="#ffffff" topmargin="0" leftmargin="0">
<%
dim sql,yhm,yhdm
call check_userinfo
if err.number<>0 then
conn.close
call disp_error("数据库连接出错，请返回重试！","")
end if
set rs=server.CreateObject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from userinfo where yhm='"&Replace(trim(Request.Form("yhm")),"'","")&"'"
sql1="select * from userinfo where url1='"&Replace(lcase(trim(Request.Form("grzy1"))),"'","")&"' and id<>"&id
rs.open sql,conn,3,2
rs1.open sql1,conn,3,2
if err.number<>0 then
rs.Close
conn.close
call disp_error("数据库连接出错，请返回重试！","")
end if
if rs.RecordCount >1 then
rs.Close
rs1.Close
conn.close
call disp_error("对不起，该用户名已经存在，请返回重新输入用户名！","")
end if
if rs1.RecordCount>=1 then
response.write(rs1.recordcount)
rs.Close
rs1.close
conn.close
call disp_error("对不起，该网址已经存在，请返回重新输入网址！","")
end if
rs.close
rs1.close
set rs=server.createobject("adodb.recordset")
sql="select * from userinfo where id="&id
rs.open sql,conn,3,2
yhm=trim(Request.Form("yhm"))
rs("yhm")=trim(Request.Form("yhm"))
rs("mm")=trim(Request.Form("mm"))
rs("lc")=trim(Request.Form("lc"))
mc1=trim(Request.Form("mc1"))
url1=lcase(trim(Request.Form("grzy1")))
lx1=trim(Request.Form("lx1"))
rs("mc1")=mc1
rs("url1")=url1
rs("lx1")=lx1
rs("dzyj")=trim(Request.Form("dzyj"))
rs("jj")=trim(Request.Form("jj"))
rs.Update
check_mts()
if err.number=0 then
objectcontext.setcomplete
end if
rs.Close
conn.close
call changesite(mc1,url1)
session("yhm")=yhm
code="<script src="&chr(34)&"http://www.kuaigou.com/qq/qqprg/init.asp?name="&yhm&chr(34)&"></script>"
%>
<div align="center">
<table border="1" width="54%" height="271" bordercolor="#C0C0C0">
<tr>
<td>
<p><img border="0" src="../images/changeok.gif"></td>
</tr>
<tr>
<td width="100%" height="18"><font color="#800000"><span class="sty">您已成功修改了网站资料，请将以下代码粘贴在您的首页<body>和</body>之间的适当位置，就可以在您的网站实现使用快狗的所有功能！</font></span><font color="#ff0000"><span class="sty">注意:同一站点不能使用不同的多个代码，不同网站也不能重复使用同一代码!</font></span></td>
</tr>
<tr>
<td width="100%" height="150">
<form name="form1" method="get" action="">
<div align="center">
<textarea name="textfield" cols="60" rows="3"><%Response.Write(server.HTMLEncode(code))%>
</textarea>
</div>
</form>
</td>
</tr>
<tr>
<td width="100%" height="5" align="right">
<img border="0" src="../help/images/helpd.gif">
</td>
</tr>
</table>
</div><br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -