?? 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("對不起，您的頁面已經(jīng)過期，請重新登錄！","")
end if
id=request("id")
if id="" Or Not isNumeric(id) then
call disp_error("對不起，數(shù)據(jù)傳送出錯，請返回重試！","")
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,免費主頁,免費服務,免費聯(lián)絡,免費注冊,免費評選,免費記數(shù)器,免費廣告交換,統(tǒng)計,計數(shù)器,免費社區(qū),免費"
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("數(shù)據(jù)庫連接出錯，請返回重試！","")
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("數(shù)據(jù)庫連接出錯，請返回重試！","")
end if
if rs.RecordCount >1 then
rs.Close
rs1.Close
conn.close
call disp_error("對不起，該用戶名已經(jīng)存在，請返回重新輸入用戶名！","")
end if
if rs1.RecordCount>=1 then
response.write(rs1.recordcount)
rs.Close
rs1.close
conn.close
call disp_error("對不起，該網(wǎng)址已經(jīng)存在，請返回重新輸入網(wǎng)址！","")
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">您已成功修改了網(wǎng)站資料，請將以下代碼粘貼在您的首頁<body>和</body>之間的適當位置，就可以在您的網(wǎng)站實現(xiàn)使用快狗的所有功能！</font></span><font color="#ff0000"><span class="sty">注意:同一站點不能使用不同的多個代碼，不同網(wǎng)站也不能重復使用同一代碼!</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 + -