regok.asp

不是我做的一个留言板

<!--#include file="../main/conn.asp" -->
<!--#include file="../function/md5.asp" -->

<% 
web_id1="../language/"
web_id=web_id1&l_id&"/USER_ADMIN.ASP"
call include(web_id)
dim reg_msg(10)
if session_cookie_group="" then 
session_cookie_group="1"
end if

username=request.form("username")
password=request.form("passwd")
user_pass=md5(password)

repass=request.form("repasswd")
realname=request.form("realname")
email=request.form("email")

reg_id=request.form("reg_id")
reg=1
reg_sql="select username from [user]"
reg_rs=conn.execute(reg_sql)
if username=reg_rs("username") then
reg_i=reg_i+1
reg_msg(reg_i)=L_REG1
reg=0
reg_rs.close
set reg_rs=nothing
end if

if username="" then
reg_i=reg_i+1
reg_msg(reg_i)=L_REG2
reg=0
end if
if password="" then
reg_i=reg_i+1
reg_msg(reg_i)=L_REG3
reg=0
end if
if password<>repass then
reg_i=reg_i+1
reg_msg(reg_i)=L_REG4
reg=0
end if


if email="" or instr(email,"@")=0 or instr(email,".")=0 then
reg_i=reg_i+1
reg_msg(reg_i)=L_REG5
reg=0
end if 
if session_cookie_group>3 and reg_id="admin" then
reg_group=2
else
reg_group=1
end if


if reg=1 then

		set reg_rs2=server.createobject("adodb.recordset")
		sql="select * from [user] where username='"&username&"' and g_id='" & session_cookie_gid & "'" 
         reg_rs2.open sql,conn,2,3
         if reg_rs2.eof then
            reg_rs2.addnew
			reg_rs2("username")=username
			reg_rs2("passwd")=user_pass
			
			reg_rs2("email")=email
			reg_rs2("realname")=realname
			reg_rs2("sex")=sex
                        if birthday<>"" then
			reg_rs2("birthday")=birthday
                        end if
			reg_rs2("mphone")=mphone
			reg_rs2("homeaddr")=homeaddr
			reg_rs2("homephone")=homephone
			reg_rs2("postcode")=postcode
			reg_rs2("jobaddr")=jobaddr
			reg_rs2("jobphone")=jobphone
			reg_rs2("oicq")=oicq
			reg_rs2("msn")=msn
			reg_rs2("website")=website
                  
			reg_rs2("usergroup")=reg_group
			reg_rs2("fice")="img/user_img/2.gif"
			reg_rs2("regtime")=now()
			reg_rs2("logtime")=now()
			reg_rs2("momey")=30
			reg_rs2("zw")="学生"
			reg_rs2("g_id")=session_cookie_gid
			reg_rs2("logno")=0
			reg_rs2("lang")=0	   
			reg_rs2("ip")=request.ServerVariables("REMOTE_HOST")
			reg_rs2.update
			%>

<center>
<table border="1" width="54%" height="192" bgcolor=<%=table_bg_color%>>
  <tr>
    <td width="100%" height="180">
      <table border="0" width="100%" height="196">
        <tr>
          <td width="100%" colspan="2" height="37" align="center"><%=L_REG6%></td>
        </tr>
        <tr>
          <td width="100%" height="6" colspan="2"><font color="#FF0000"></font></td>
        </tr>
        <tr>
          <td width="21%" height="11"><%=L_REG7%></td>
          <td width="79%" height="11"><%=username%></td>
        </tr>
        <tr>
          <td width="21%" height="32"><%=L_REG8%>：</td>
          <td width="79%" height="32"><%=repass%></td>
        </tr>
        <tr>
          <td width="21%" height="31"><%=L_REG9%>：</td>
          <td width="79%" height="31"><%=email%></td>
        </tr>
        <tr>
          <td width="21%" height="31"><%=L_REG10%>：</td>
          <td width="79%" height="31"><%=realname%></td>
        </tr>
        <tr>
<%if session_cookie_group>2 then

response.write "<td width=100% height=33 colspan=2 align=center><a href=reg.asp>"&L_REG11&"</a></td>"
else

response.write "<td width=100% height=33 colspan=2 align=center><a href=index.asp>"
response.write L_REG12&"</a></td>"
end if
%>
</tr>
</table>
</td>
</tr>
</table>
<%
end if

reg_rs2.close
set reg_rs2=nothing
conn.close
set conn=nothing
end if

if reg=0 then
%>
<center>
<table border="1" width="54%" height="192" bgcolor=<%=table_bg_color%>>
  <tr>
    <td width="100%" height="180">
      <table border="0" width="100%" height="196">
        <tr>
          <td width="100%" height="37" align="center"><font color='ff0000'><%=L_REG13%></font></td>
        </tr>
        <tr>
          <td width="100%" height="80">
          <%
          for i=1 to reg_i
           response.write i& "." & reg_msg(i) & "<br>"
         next
          %>
           
          </td>
        </tr>
        <tr>
          <td width="100%" height="33" align="center">
<% if reg_group=2 then
response.write "<a href='reg.asp?sid=添加同学'>"&L_REG11&"</a>"
else
response.write "<a href='reg.asp'>"&L_REG11&"</a>"
end if
%>
</td>
        </tr>
             </table>
    </td>
  </tr>
</table>
<%
end if
%>