[Ô­´´]asp+access¸Ä³Éasp+mssqlºó·¢ÉúµÄÎÊÌâ.Çë´ó¼Ò°ïæ.¼±!!!!!!!!!!!!лл ...

ÊÀ¼Í¤Î·ç

ÐÅÏ¢ÊäÈëÒ³Ãæ:userreg2.asp ---------------------------------------------------- <%PageName="UserReg2"%> <!--#include file="conn.asp"--> <!--#include file="const.asp"--> <!--#include file="top.asp"--> <!--#include file=function.asp -->
<table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor=<%=MainBgColor%> align=center> <FORM name=reg2 action=UserRegPost.asp method=post> <TR> <%=OutTable("left")%> <td align=center> <table border=0 cellpadding=0 cellspacing=0 width=200> <tr> <td><br> <fieldset width=20%> <legend align=center>| лáÔ±×¢²á |</legend> <table border=0 cellpadding=0 cellspacing=0 width=400 bgcolor=<%=MainCColor%>> <tr> <TD width=30% align=right>**×¢²áÃû£º</TD> <TD><INPUT maxLength=20 size=16 name=UserName> (¿ÉÒÔʹÓÃÖÐÓ¢ÎÄÄäÃû)</TD> </TR> <TR> <TD align=right>**ÃÜ Â룺</TD> <TD><INPUT type=password maxLength=20 size=16 name=password></TD> </TR> <TR> <TD align=right>**ÃÜÂëÈ·ÈÏ£º</TD> <TD><INPUT type=password maxLength=20 size=16 name=password2></TD> </TR> <TR> <TD align=right>**EmailµØÖ·£º</TD> <TD><INPUT size=30 name=Email></TD> </TR> <TR> <TD align=right>ÐÔ ±ð£º</TD> <TD><INPUT type=radio checkED value="1" name=sex> ÄÐ <INPUT type=radio value="0" name=sex> Å®</TD> </TR> <TR> <TD align=right>OICQºÅÂ룺</TD> <TD><INPUT size=20 name=OICQ></TD> </TR> <TR> <TD align=right>Ö÷Ò³Ãû³Æ£º</TD> <TD><INPUT size=30 name=UserWebName></TD> </TR> <TR> <TD align=right>Ö÷Ò³µØÖ·£º</TD> <TD><INPUT size=30 name=UserWebUrl value="http://"></TD> </TR> <TR> <TD align=right>Ç© Ãû£º</TD> <TD><TEXTAREA name=MyIntro rows=5 wrap=PHYSICAL cols=40></TEXTAREA></TD> </TR> <TR align=center> <TD colspan=2 height=30><INPUT value="×¢ ²á" name=Submit type=submit> <INPUT type=reset value="ÖØ Ð´" name=Submit2></TD> </TR> </TABLE> </fieldset> </td> </tr> </table> <br> </td> <%=OutTable("right")%> </tr> </FORM> </table> <%set rs=nothing%><!--#include file="copyright.asp"--> ---------------------------------------------------------------------------------- ½«ÊäÈëµÄÊý¾Ý´«µ½UserRegPost.asp ´úÂëÈçÏÂ: ------------------------------------------------- <%PageName="UserRegPost"%> <!--#include file="conn.asp"--> <!--#include file="const.asp"--> <!--#include file="session.asp"--> <!--#include file="INC/CHAR.INC"--> <!--#include file=function.asp -->
<%
founderr=false
if request.form("UserName")="" or len(request.form("UserName"))>20 then errmsg=errmsg+"<li>Óû§ÃûÊäÈë´íÎó(δÊäÈë»ò³¤¶È³¬¹ýÁË20¸ö×Ö½Ú)¡£" founderr=true else UserName=trim(request.form("UserName")) end if if request.form("sex")="" then errmsg=errmsg+"<li>ÇëÑ¡ÔñÄúµÄÐÔ±ð¡£" founderr=true elseif left(UserName,3)="%20" OR InStr(UserName,"=")<>0 or InStr(UserName,"`")<>0 or InStr(UserName," ")<>0 or InStr(UserName,"¡¡")<>0 or InStr(UserName,"'")<>0 or InStr(UserName,chr(34))<>0 or InStr(UserName,"\")<>0 or InStr(UserName,",")<>0 or InStr(UserName,"<")<>0 or InStr(UserName,">")<>0 or InStr(UserName,"&lt;")<>0 or Instr(UserName,"&gt;") or UserName="´ó¼Ò" or Instr(UserName,"°®Ñ©") or UserName="ÎÞ" or Instr(UserName,"°Ö") or Instr(UserName,"Âè") or Instr(UserName,"Äï") or Instr(UserName,"Ò¯") or Instr(UserName,"ÄÌ") or Instr(UserName,"ÀÏ×Ó") or Instr(UserName,"Äã") or Instr(UserName,"Ëû") or Instr(UserName,"Ëý") or UserName="Õ¾³¤" or UserName="root" or UserName="administrator" or UserName="admin" or UserName="sex" then errmsg=errmsg+"<li>ÄãÊäÈëµÄÕʺŷǷ¨£¬¿ÉÄÜÓзǷ¨µÄ×Ö·û»ò×Ö·û´®¡£" founderr=true elseif request.form("sex")=0 or request.form("sex")=1 then sex=request.form("sex") else errmsg=errmsg+"<li>ÄúÊäÈëµÄ×Ö·û·Ç·¨¡£" founderr=true end if if request.form("password")="" or Len(request.form("password"))>20 then errmsg=errmsg+"<li>ÇëÊäÈëÄúµÄÃÜÂë(³¤¶È²»ÄÜ´óÓÚ20)¡£" founderr=true else password=request.form("password") end if if password<>request("password2") then errmsg=errmsg+"<li>ÄúÊäÈëµÄÃÜÂëºÍÈ·ÈÏÃÜÂë²»Ò»Ö¡£" founderr=true end if if IsValidEmail(trim(request.form("Email")))=false then errmsg=errmsg+"<li>ÄúµÄEmailÓдíÎó¡£" founderr=true else Email=trim(request.form("Email")) end if
if trim(request.form("UserWebName"))<>"" then if trim(request.form("UserWebUrl"))="" or trim(request.form("UserWebUrl"))="http://" then errmsg=errmsg+"<li>ÄúÊäÈëÁËÍøÕ¾Ãû³Æ£¬µ«ÊÇûÓÐÊäÈëÍøÕ¾µØÖ·¡£" founderr=true end if else if trim(request.form("UserWebUrl"))<>"" or trim(request.form("UserWebUrl"))="http://" then errmsg=errmsg+"<li>ÄúûÓÐÊäÈëÍøÕ¾Ãû³Æ£¬µ«ÊÇÄúÊäÈëÁËÍøÕ¾µØÖ·¡£" founderr=true end if end if
if founderr=true then call error() else set rs=server.createobject("adodb.recordset") sql="select * FROM Users where username='"&username&"'" rs.open sql,conn,1,3 if not rs.eof or username=WebTitle then errmsg="<br>"+"<li>¶Ô²»Æð£¬ÄúÊäÈëµÄÓû§ÃûÒѾ­±»×¢²á£¬ÇëÖØÐÂÊäÈë¡£" founderr=true else rs.addnew rs("username")=username rs("password")=password rs("email")=email if request.form("MyIntro")<>"" then rs("sign")=htmlencode2(trim(request.form("MyIntro"))) if request.form("oicq")<>"" then rs("oicq")=request.form("oicq") if request.form("UserWebName")<>"" and request.form("UserWebUrl")<>"" then rs("UserWebName")=request("UserWebName") rs("UserWebUrl")=request("UserWebUrl") end if if RegFree=1 then rs("IsChecked")=1 else rs("IsChecked")=0 end if Rs("sex")=sex Rs("addDate")=now() rs("logins")=0 Rs("lastlogin")=now() rs("UserLevel")=1 rs("UserPoint")=0 rs.update end if rs.close
if founderr=true then call error() else %>
<!--#include file="top.asp"--> <table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor=<%=MainBgColor%> align=center> <tr> <%=OutTable("left")%> <td align=center> <br> <table border="1" width="50%" align="center" cellspacing="0" cellpadding="5" class="TableLine" bordercolorlight="<%=MainBColor%>"> <tr > <td colspan=2 align="center" height=24 bgcolor=<%=MainTColor%>><b>»áÔ±×¢²á³É¹¦</b></td> </tr> <tr> <td width=22% align=right>×¢ ²á Ãû</td> <td width="78%"><%=username%></td> </tr> <tr> <td align=right width="22%">ÐÔ ±ð</td> <td width="78%"> <%if sex=1 then%> ÄÐ <%else%> Å® <%end if%> </td> </tr> <tr> <td align=right width="22%">ÃÜ Âë</td> <td width="78%"><%=password%>¡¡</td> </tr> <tr> <td align=right width="22%">EmailµØÖ·</td> <td width="78%"><%=email%>¡¡</td> </tr> <tr> <td align=right width="22%">OICQºÅÂë</td> <td width="78%"> <%if request.form("oicq")="" then%> δÌîд <%else%> <%=request.form("oicq")%> <%end if%> </td> </tr> <tr> <td align=right width="22%">Ö÷Ò³</td> <td width="78%"> <%if request.form("UserWebUrl")="" or request.form("UserWebName")="" then%> δÌîд <%else%><a href="<%=request.form("UserWebUrl")%>" target=_blank> <%=request.form("UserWebName")%> </a> <%end if%> </td> </tr> <tr> <td align=right width="22%">»áÔ±»ý·Ö</td> <td width="78%">0</td> </tr> <tr> <td align=right width="22%">»áÔ±µÈ¼¶</td> <td width="78%"><%=Level(1)%>¡¡</td> </tr> <tr> <td align=right valign=top width="22%">Ç© Ãû</td> <td width="78%"> <%if trim(request.form("MyIntro"))="" then%> δÌîд <%else%> <%=htmlencode2(trim(request.form("MyIntro")))%> <%end if%> </td> </tr> <tr> <td align=center colspan=2><%if RegFree=0 then%>ÇëÄÍÐĵȴý¹ÜÀíÔ±µÄÈÏÖ¤<%else%><a href=UserLogin.asp>ÇëµÇ½</a><%end if%></td> </tr> </table> <br></td> <%=OutTable("right")%> </tr> </table> <% set rs=nothing %> <!--#include file="copyright.asp"--> <% end if end if %> ------------------------- ͨ¹ýÉÏÃæÕâ¸öÒ³ÃæÊý¾ÝÓ¦¸ÃдÈëµ½mssqlÊý¾Ý¿âÖÐ,µ«ÊǾÍÊDz»ÄÜдÈë.ÎÒÈÏΪÒÔÏÂÓï¾äÓÐÎÊÌâ rs.addnew rs("username")=username rs("password")=password rs("email")=email if request.form("MyIntro")<>"" then rs("sign")=htmlencode2(trim(request.form("MyIntro"))) if request.form("oicq")<>"" then rs("oicq")=request.form("oicq") if request.form("UserWebName")<>"" and request.form("UserWebUrl")<>"" then rs("UserWebName")=request("UserWebName") rs("UserWebUrl")=request("UserWebUrl") end if if RegFree=1 then rs("IsChecked")=1 else rs("IsChecked")=0 end if Rs("sex")=sex Rs("addDate")=now() rs("logins")=0 Rs("lastlogin")=now() rs("UserLevel")=1 rs("UserPoint")=0 rs.update end if rs.close ------------------------------------------------------------------ ÎÒÓ¦¸ÃÔõôȥ×ö²Å¿ÉÒÔдÈëÊý¾Ýµ½mssqlÊý¾Ý¿â?´ËÔ´ÂëÔÚaccessÊý¾Ý¿âÏÂÒ»ÇÐÕý³£.Çë¸÷λ°ïæ.¼±!!!!!!!!!!