📄 register_write.asp

📁 国内最早的在线客服系统源码.可以把访客变成自己的客户.是目前比较流行的在线客服系统
💻 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("数据库连接出错，请返回重试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("数据库连接出错，请返回重试！","")
end if
if not rs.eof then
	rs.Close
	rs1.Close
	conn.close
	set rs=nothing
	set conn=nothing
	call disp_error("对不起，该用户名已经存在，请返回重新输入用户名！","")
elseif not rs1.eof then
	rs.Close
	rs1.close
	conn.close
	set rs1=nothing
	set conn=nothing
	call disp_error("对不起，该网址已经存在，请返回重新输入网址！","")
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("注册时出现错误，请返回重试或报告管理员！")
    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">请将以下代码粘贴在您的首页&lt;body&gt;和&lt;/body&gt;之间的适当位置，就可以在您的网站实现使用快狗的所有功能！</font></span><font color="#ff0000"><span class="sty">注意:同一站点不能使用不同的多个代码，不同网站也不能重复使用同一代码!</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="复制代码" onclick="javascript:window.clipboardData.setData('text',code.value);info.style.visibility='visible'"><br>
<p align=center style="visibility:hidden" id='info'><font color='3333ff'>代码已经复制到您的剪贴板中</font></p>

            </div>
          </form>
        </td>
    </tr>
  </table>
  </center>
</div><br>
<div><center><font color="#800000"><span class="sty">:::快狗:::版权所有</font></span></center>
</div>
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -