uplogin.asp

廣告聯盟系統,發布廣告信息,很不錯的一款

<%@ language=vbscript %>
<!-- #include file=DATABASE.INC -->
<%
user=Request("user")
if user="" then 
Response.Redirect("zc.asp?err=1")
end if
user=Replace(user,"'","")
ocp_password=Request("ocp_password")
if ocp_password="" then 
Response.Redirect("zc.asp?err=2")
end if
reocp_password=Request("reocp_password")
if ocp_password<>reocp_password then
Response.Redirect("zc.asp?err=3")
end if
ocp_turename=Request("ocp_turename")
if ocp_turename="" then
Response.Redirect("zc.asp?err=4")
end if
ocp_email=Request("ocp_email")
if ocp_email="" then
Response.Redirect("zc.asp?err=6")
end if
ocp_homepage=Request("ocp_homepage")
if ocp_homepage="" then
Response.redirect("zc.asp?err=5")
end if
ocp_idcard=Request("ocp_idcard")
ocp_address=Request("ocp_address")
ocp_code=Request("ocp_code")
ocp_oicq=Request("ocp_oicq")
ocp_bankinfo=Request("ocp_bankinfo")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 56mdata where username='"&request("user")&"'"
rs.Open sql,cn,3,2,adcmdtest
rs(2)=ocp_password
rs(3)=ocp_turename
rs(4)=ocp_email
rs(5)=ocp_homepage
rs(6)=ocp_idcard
if ocp_address="" then
ocp_address="NULL"
end if
rs(7)=ocp_address
rs(8)=ocp_code
if ocp_code="" then
ocp_code="NULL"
end if
if ocp_oicq="" then
ocp_oicq="NULL"
end if
rs(9)=ocp_oicq
if ocp_bankinfo="" then
ocp_bankinfo="NULL"
end if
rs(10)=ocp_bankinfo
rs.Update
rs.close
cn.close
set rs=nothing: set cn=nothing
Response.Redirect("mmain.asp")
%>