📄 in_control1.asp
字号:
<!--#include file="info.asp"-->
<!--#include file="conn.asp"-->
<html>
<%
if Request.Cookies("id")="" or Request.Cookies("ac")="" or Request.Cookies("user")<>"1" then
response.write "<script language=JavaScript>" & chr(13) & "alert('登录超时请重新登录填写本页内容！');"&"window.location.href = 'index.asp'"&" </script>"
Response.End
end if
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<title><%=webname%> - 会员中心 - 基本资料设置</title>
<script language=JavaScript>
<%dim i_1,j_1
set rs_s=server.createobject("adodb.recordset")
sql="select * from province order by shengorder"
rs_s.open sql,conn,1,1
%>
var selects=[];
selects['0']=new Array(new Option('城区不限','0'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_s("ShengNo")%>']=new Array(
new Option('选择城市','0'),
<%
set rs_s1=server.createobject("adodb.recordset")
sql="select * from city where shengid="&rs_s("id")&" order by shiorder"
rs_s1.open sql,conn,1,1
if rs_s1.recordcount>0 then
%>
<% for j=1 to rs_s1.recordcount
if j=rs_s1.recordcount then
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<% else
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
end if
rs_s1.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_s1.close
set rs_s1=nothing
rs_s.movenext
next
rs_s.close
set rs_s=nothing
%>
function chsel(){
with (document.form100){
if(province.value) {
city.options.length=0;
for(var i=0;i<selects[province.value].length;i++){
city.add(selects[province.value][i]);
}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
.STYLE2 {color: #0066FF}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<div align="center">
<table border="0" width="811" cellspacing="0" cellpadding="0" id="table1" height="421">
<tr>
<td style="border-left: 1px solid #ffc6bf; border-right: 1px solid #ffc6bf; border-top: 1px solid #ffc6bf" width="760" valign="top" bgcolor="#FEFBF4">
<div align="center">
<table border="0" width="705" cellspacing="0" cellpadding="0" id="table2" height="379">
<tr>
<td height="86" width="214">
<img border="0" src="images/control.gif" width="282" height="90"></td>
<td height="86" width="237"> </td>
<td height="86" width="128">
<img border="0" src="images/controltop1.gif" width="128" height="90"></td>
<td height="86" width="58"> </td>
</tr>
<tr>
<td width="705" colspan="4" valign="top">
<%
sql="select * from in_user where id="&clng(Request.Cookies("id"))
rs.open sql,conn,1,1
if rs.eof or rs.bof then
rs.close
response.redirect "nodata.html"
end if
%>
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3" height="951">
<tr>
<td height="27" colspan="2">
<p align="left">
<a href="control.asp">会员中心</a> → 基本资料设置 </td>
</tr>
<tr>
<td width="25%" valign="top">
<!--#include file="in_menu.asp"-->
</td>
<td width="75%" valign="top" align="center" style="border: 1px solid #000000">
<form name="form100" method="POST" action="upinfo1.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="40" id="table5">
<tr>
<td height="40" colspan="3">
<p align="center"><b>
学员基本资料设置</b></td>
</tr>
<tr>
<td height="40" width="21%" align="right">
学员姓名：</td>
<td width="35%" height="40" bgcolor="#FFFBF7"><input type="text" name="name" size="23" readonly style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" value="<%=rs("name")%>"></td>
<td height="40" width="44%">
<span class="STYLE2">*修改请联系管理员</span></td>
</tr>
<tr> </tr>
<tr> </tr>
<tr>
<td height="40" width="21%" align="right">
性别：</td>
<td height="40" width="35%">
<INPUT TYPE="radio"<%if rs("sex") ="男" then Response.Write "checked"%> VALUE="男" NAME="sex">
男 <INPUT TYPE="radio" <%if rs("sex") ="女" then Response.Write "checked"%> NAME="sex" VALUE="女">
女 </td>
<td height="40" width="44%">
<font color="#FF0000">*</font></td>
</tr>
<tr> </tr>
<tr>
<td height="40" width="21%" align="right">年龄：</td>
<td height="40" width="35%">
<input name="shenggao" type="text" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" value="<%=rs("shenggao")%>" size="10" maxlength="3"></td>
<td height="40" width="44%">
<font color="#FF0000">周岁* </font></td>
</tr>
<tr>
<td height="40" width="21%" align="right">所在地区：</td>
<td height="40" width="35%">
<%
set rss=server.createobject("adodb.recordset")
sqls="select * from province where shengNo="&int(rs("province"))
rss.open sqls,conn,1,1
if rss.eof then
end if
if rs("province") =0 then
response.write "不详"
end if
shengid=rss("id")
sheng=rss("shengname")
rss.close
set rss=nothing
%>
<%
set rss=server.createobject("adodb.recordset")
sqls="select * from city where Shengid="&shengid&" and shino="&int(rs("city"))
rss.open sqls,conn,1,1
if rss.eof then
end if
shi=rss("shiname")
rss.close
set rss=nothing
%>
当前设置：<font color=#ff0000><%=sheng%><%=shi%><%=rs("xian")%></font><br>
省份：<select size="1" name="province" onChange=chsel() style=" font-size: 12px; background-color: #fff4e5">
<option value="0" selected>选择省份</option>
<%dim tmpShengid
tmpShengid=0
province=int(province)
city=int(city)
set rs1_s=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -