www.gusucode.com > 蓝影会员系统(淡蓝色经典)源码程序 > xg.asp
<!--#include file="conn.asp" -->
<!--#include file="md5code.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content="免费主页、免费空间、个人主页、域名注册、虚拟主机、企业邮局、主机租用、主机托管、网站推广、智能建站、建站服务、网站建设、通用网址、网络实名、域名抢注、国际域名、国内域名" name=keywords>
<title>虫影设计网－个人主页基地|免费空间|免费主页|网页制作|网站建设|平面设计|域名注册|网站推广|网站维护...</title>
<style type="text/css">
<!--
.mytext {FONT-SIZE: 12px
}
.unnamed1 { height: 10.px;
height: 15px;
border: none;
background-color: #F2F8FF;
width: 100px;
}
.unnamed12 {height: 10.px;
height: 20px;
}
.unnamed2 {height: 1px;
width: 1px;
clear: both;
border: none;
}
.unnamed21 { height: 1px;
width: 1px;
border: none;
}
body {
margin-top: 0px;
}
.style2 { color: #999999;
font-size: 12px;
}
.style3 { font-size: 12px;
font-weight: bold;
}
.style7 {color: #999999}
-->
</style>
<body background=img/back.jpg>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="tou.asp" --></td>
</tr>
</table>
<table width="770" height="383" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr>
<tr>
<td width="802" height="370" valign="top"><p>
<%
dim admin,password
username=trim(session("admin"))
set rs= Server.CreateObject("adodb.recordset")
sql = "Select * From admin Where admin='"&username&"'"
'============================================admin是数据库里面的字段==username也是数据库里面的字段=========
rs.open sql,conn,1,3
if request.form("active")="" then '用来判断的表单提交还是刷新页面,如果是提交表单,那么隐藏域的值肯定被提交,这样Request.form("active")不为空,就执行以下回复语句.如果没提交表单,而是刷新页面,那么隐藏域的值没有提交,Request.form("active")肯定为空,就跳过不执行
else
'===========================================================下面开始为判断语句==============================================
password=replace(trim(request.form("password")),"'","")
password2=replace(trim(request.form("password2")),"'","")
qq=replace(trim(request.form("qq")),"'","")
youbian=replace(trim(request.form("youbian")),"'","'")
mail=replace(trim(request.form("mail")),"'","")
textarea=replace(trim(request.form("textarea")),"'","")
if password="" or len(password)>16 or len(password)<6 then
response.write "<SCRIPT language=JavaScript>alert('密码长度为6-16个字符');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
if password2="" then
response.write "<SCRIPT language=JavaScript>alert('确认密码不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
else
if password<>password2 then
response.write "<SCRIPT language=JavaScript>alert('密码和确认密码不一致');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end if
if qq<>"" then
if not(isnumeric(qq)) then
response.write "<SCRIPT language=JavaScript>alert('QQ号码必须是数字');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end if
if youbian="" or len(youbian)<>6 then
response.write "<SCRIPT language=JavaScript>alert('请正确输入邮编');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
if youbian<>"" then
if not(isnumeric(youbian)) then
response.write "<SCRIPT language=JavaScript>alert('邮编必须是数字');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end if
if dizhi<>"" then
if not(isnumeric(dizhi)) then
response.write "<SCRIPT language=JavaScript>alert('住址不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end if
if mail="" then
response.write "<SCRIPT language=JavaScript>alert('E-mail不能为空！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if
if textarea="" then
response.write "<SCRIPT language=JavaScript>alert('个人说明不能为空！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if
if textarea="" or len(textarea)>150 then
response.write "<SCRIPT language=JavaScript>alert('个人说明为150个字符');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
'===========================================判断语句结束,以下是把表单的数据插入到数据库中======================
rs("sex")=Trim(Request.Form("sex"))
rs("password")=md5(Trim(Request.Form("password")))
rs("qq")=Trim(Request.Form("qq"))
rs("youbian")=Trim(Request.Form("youbian"))
rs("dizhi")=Trim(Request.Form("dizhi"))
rs("dianhua")=Trim(Request.Form("dianhua"))
rs("mail")=Trim(Request.Form("mail"))
rs("qianming")=Trim(Request.Form("qianming"))
rs("textarea")=Trim(Request.Form("textarea"))
rs.update
rs.close
set rs=nothing
response.redirect "index.asp"'跳转到gl.asp页面
end if
'==============================================插入数据库的操作到此结束=====================================
%>
</p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p> </p>
<form name="form1" method="post" action="xg.asp?id=<%=request("id")%>">
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0" id="dsavsdv">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td><table width="100%" height="139" border="0" align="center" cellpadding="0" cellspacing="5" bgcolor="#F2F8FF">
<tr bgcolor="#f2f8ff">
<td colspan="2"><div align="center"></div></td>
</tr>
<tr bgcolor="#f2f8ff">
<td width="188">用户名：</td>
<td width="488"><%=rs("admin")%></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>身 份:</td>
<td><%=rs("shenfen")%></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>性 别:</td>
<td><input <%If (CStr(rs("sex")) = CStr("男")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="sex" value="男">
男
<input <%If (CStr(rs("sex")) = CStr("女")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="sex" value="女">
女
<input <%If (CStr(rs("sex")) = CStr("保密")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="sex" value="保密">
保密</td>
</tr>
<tr bgcolor="#f2f8ff">
<td>密 码：<br>
<span class="style2">请输入密码，区分大小写。 不要使用类似 '*'、' '的特殊字符</span></td>
<td><input name="password" type="password" id="password"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>确认密码：<br>
<span class="style2">请再输一遍确认</span></td>
<td><input name="password2" type="password" id="password2"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>Q Q:<br>
<span class="style2">请输入你的QQ号</span></td>
<td><input name="qq" type="text" class="unnamed12" id="qq" value="<%=rs("qq")%>" size="20" maxlength="16"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>邮 编:<br>
<span class="mytext"><span class="style7">请输入您所在地的邮政编码</span></span></td>
<td><input name="youbian" type="text" class="unnamed12" id="youbian" value="<%=rs("youbian")%>" size="7" maxlength="6"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>住 址：<br>
<span class="style2">请输入您的住址</span></td>
<td><input name="dizhi" type="text" class="unnamed12" id="dizhi" value="<%=rs("dizhi")%>" size="40"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>联系电话：<br>
<span class="style3"><span class="style7">格式0791-6274752 </span></span></td>
<td><input name="dianhua" type="text" class="unnamed12" id="dianhua" value="<%=rs("dianhua")%>"dianhua" size="20" maxlength="15"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>E-mail:<br>
<span class="style2">请输入有效的邮件地址</span></td>
<td><input name="mail" type="text" class="unnamed12" id="mail" value="<%=rs("mail")%>" size="20"></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>个性签名：</td>
<td><textarea name="qianming" cols="50" rows="3" wrap="PHYSICAL" id="qianming"><%=rs("qianming")%></textarea></td>
</tr>
<tr bgcolor="#f2f8ff">
<td>个人说明：</td>
<td><textarea name="textarea" cols="50" rows="8" wrap="PHYSICAL"><%=rs("textarea")%></textarea></td>
</tr>
<tr bgcolor="#f2f8ff">
<td colspan="2"><div align="center">
<input name="active" type="hidden" id="active" value="yes">
<input type="submit" name="Submit" value="我填好了">
<input type="reset" name="Submit" value="我不改了">
</div></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table> <p align="center"> </p></td>
</tr>
</table>
<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="down.asp" --></td>
</tr>
</table>
</doby>