mydata.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("PassWd"))<>Trim(Request.Form("PassWd1")) then Response.Redirect("error.asp?id=005")
if IsValidEmail(Trim(Request.Form("Email")))=false then Response.Redirect("error.asp?id=015")
if IsValidTel(Trim(Request.Form("TelePhone")))=false then Response.Redirect("error.asp?id=004")
if isValidstring(Trim(Request.Form("QQ")))<>"" then Response.Redirect("error.asp?id=022")
set rs=server.createobject("adodb.recordset")
sql="select * from [Agent_User] where ID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
if Trim(Request.Form("PassWd"))<>"" then 
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("PassWd")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("PassWd"))
end if
rs("PassWd")=passwd
end if
rs("Name")=Trim(Request.Form("Name"))
rs("Comname")=Trim(Request.Form("Comname"))
rs("TelePhone")=Trim(Request.Form("TelePhone"))
rs("Mobile")=Trim(Request.Form("Mobile"))
rs("Address")=Trim(Request.Form("Address"))
rs("Email")=Trim(Request.Form("Email"))&"|"&Trim(Request.Form("QQ"))
rs.update
rs.close
set rs=nothing
response.redirect "MyData.asp"
response.end
else
set rs=server.createobject("adodb.recordset")
sql="select * from [Agent_User] where ID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
UserId=rs("UserId")
Grade=rs("Grade")
Name=rs("Name")
Comname=rs("Comname")
TelePhone=rs("TelePhone")
if isNull(rs("Email")) then
Email=Split("Email|000000","|")
else
Email=Split(rs("Email"),"|")
end if
Mobile=rs("Mobile")
Address=rs("Address")
rs.close
set rs=nothing
end if
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action&ID=<%=ID%>" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
我的资料 (登陆名:<%=UserId%> 级别:<%=GradeText(Grade)%>)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 用户密码:
</td>
<td bgcolor=FFFFFF width=26%>
<input type=password name="PassWd" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户登录时所用密码
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 确认密码:
</td>
<td bgcolor=FFFFFF>
<input type=password name="PassWd1" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
如不修改密码请留空。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 真实姓名:
</td>
<td bgcolor=FFFFFF>
<input name="Name" style="width:120px" value="<%=Name%>">
</td>
<td bgcolor=FFFFFF>
请如实填写
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 公司名称:
</td>
<td bgcolor=FFFFFF>
<input name="Comname" style="width:120px" value="<%=Comname%>">
</td>
<td bgcolor=FFFFFF>
请如实填写
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 联系电话:
</td>
<td bgcolor=FFFFFF>
<input name="TelePhone" style="width:120px" value="<%=TelePhone%>">
</td>
<td bgcolor=FFFFFF>
带区号(>7位)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> E-mail:
</td>
<td bgcolor=FFFFFF>
<input name="Email" style="width:120px" value="<%=Email(0)%>">
</td>
<td bgcolor=FFFFFF>
请如实填写
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> QQ:
</td>
<%if UBound(Email)<1 then%>
<td bgcolor=FFFFFF>
<input name="QQ" style="width:120px" value="000000">
</td>
<%else%>
<td bgcolor=FFFFFF>
<input name="QQ" style="width:120px" value="<%=Email(1)%>">
</td>
<%end if%>
<td bgcolor=FFFFFF>
以便联系，格式：000000
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 联系手机:
</td>
<td bgcolor=FFFFFF>
<input name="Mobile" style="width:120px" value="<%=Mobile%>">
</td>
<td bgcolor=FFFFFF>
带区号，你的随身电话
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 联系地址:
</td>
<td bgcolor=FFFFFF>
<input name="Address" style="width:120px" value="<%=Address%>">
</td>
<td bgcolor=FFFFFF>
你的详细联系地址
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->