user_reg.asp

FlashPicViewer电子相册 v2.6 繁体中文版

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
  GetIp = proxy
else
  GetIp = realip
end if
username=request("username")
password=request("password")
email=request("email")
qq=request("qq")
jifen=request("jifen")
fpv1=request("fpv1")
fpv2=request("fpv2")
fpv3=request("fpv3")
fpv4=request("fpv4")
fpv5=request("fpv5")
fpv6=request("fpv6")
fpv7=request("fpv7")
fpv8=request("fpv8")
fpv9=request("fpv9")
fpv10=request("fpv10")
fpv11=request("fpv11")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM [user] Where username='"&username&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
if rs.eof then
rs.addnew
rs("username")=username
rs("password")=password
rs("email")=email
rs("qq")=qq
rs("jifen")=jifen
rs("fpv1")=GetIp
rs("fpv2")=fpv2
rs("fpv3")=fpv3
rs("fpv4")=fpv4
rs("fpv5")=fpv5
rs("fpv6")=fpv6
rs("fpv7")=fpv7
rs("fpv8")=fpv8
rs("fpv9")=fpv9
rs("fpv10")=fpv10
rs("fpv11")=fpv11
rs.update
response.write "&cunzai=0"
else
response.write "&cunzai=1"
end if
rs.close
set rs=nothing
%>