?? register_write.asp
字號:
<%@ TRANSACTION =Requires_New%>
<%Response.Expires =0%>
<%
on error resume next
dim sql,yhm,yhdm
Dim sHostUrl
sHostUrl="http://localhost:800"
%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="error.asp"-->
<%
Function SqlStr(v)
SqlStr="'" & Replace(v,"'","''") & "'"
End Function
call check_userinfo
if err.number<>0 then
conn.close
call disp_error("數(shù)據(jù)庫連接出錯(cuò),請返回重試1!","")
end if
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql="select * from userinfo where yhm='"&trim(Request.Form("yhm"))&"'"
sql1="select * from userinfo where url1='"&trim(Request.Form("grzy1"))&"'"
rs.open sql,conn,1,1
rs1.Open sql1,conn,1,1
if err.number<>0 then
rs.Close
conn.close
set rs=nothing
set conn=nothing
call disp_error("數(shù)據(jù)庫連接出錯(cuò),請返回重試!","")
end if
if not rs.eof then
rs.Close
rs1.Close
conn.close
set rs=nothing
set conn=nothing
call disp_error("對不起,該用戶名已經(jīng)存在,請返回重新輸入用戶名!","")
elseif not rs1.eof then
rs.Close
rs1.close
conn.close
set rs1=nothing
set conn=nothing
call disp_error("對不起,該網(wǎng)址已經(jīng)存在,請返回重新輸入網(wǎng)址!","")
end if
mc1=trim(Request.Form("mc1"))
url1=lcase(trim(Request.Form("grzy1")))
lx1=trim(Request.Form("lx1"))
oicq=trim(request.form("oicq"))
sSql="insert into userinfo(yhm,mm,lc,oicq,mc1,url1,lx1,dzyj,jj,rq,sj,looksums) values("
sSql=sSql & SqlStr(trim(Request.Form("yhm"))) & "," & SqlStr(Request.Form("mm")) & "," & SqlStr(charfilter(trim(Request.Form("lc")))) & "," & SqlStr(oicq) & "," & SqlStr(mc1) & "," & SqlStr(url1) & "," & SqlStr(lxl) & "," & SqlStr(trim(Request.Form("dzyj"))) & "," & SqlStr(charfilter(trim(Request.Form("jj")))) & ",'" & date & "','" & time & "',1)"
Conn.Execute(sSql)
if err.number<>0 then
Conn.Close
call disp_error("注冊時(shí)出現(xiàn)錯(cuò)誤,請返回重試或報(bào)告管理員!")
response.end
end if
rs.Close
rs1.Close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
code="<script src="&chr(34)& sHostUrl &"/qqprg/init.asp?name="&yhm&chr(34)&"></script>"
code2="<script src="&chr(34)& sHostUrl &"/qqprg/init.asp?name="&yhm&chr(34)&"></script>"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>請將以下代碼粘貼在您的首頁</title>
<style type="text/css">
<!--
.sty { font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="1" width="54%" height="271" bordercolor="#000000">
<tr>
<td width="100%" height="71">
<p align="center"><img border="0" src="../qqpic/zccg.gif" width="396" height="71"></td>
</tr>
<tr>
<td width="100%" height="18"><font color="#800000"><span class="sty">請將以下代碼粘貼在您的首頁<body>和</body>之間的適當(dāng)位置,就可以在您的網(wǎng)站實(shí)現(xiàn)使用快狗的所有功能!</font></span><font color="#ff0000"><span class="sty">注意:同一站點(diǎn)不能使用不同的多個(gè)代碼,不同網(wǎng)站也不能重復(fù)使用同一代碼!</font></span></td>
</tr>
<tr>
<td width="100%" height="167">
<form name="form1" method="get" action="">
<div align="center">
<textarea name="textfield" cols="60" readonly oncontextmenu="javascript:event.returnValue=false;" rows="3"><%Response.Write(server.HTMLEncode(code))%>
</textarea><input type=hidden id='code' value='<%=code2%>'>
<br>
<input type="button" value="復(fù)制代碼" onclick="javascript:window.clipboardData.setData('text',code.value);info.style.visibility='visible'"><br>
<p align=center style="visibility:hidden" id='info'><font color='3333ff'>代碼已經(jīng)復(fù)制到您的剪貼板中</font></p>
</div>
</form>
</td>
</tr>
</table>
</center>
</div><br>
<div><center><font color="#800000"><span class="sty">:::快狗:::版權(quán)所有</font></span></center>
</div>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -