?? edit.asp
字號:
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<head>
<title>用戶管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {font-size: 18px}
.style3 {color: #FF0000}
.style6 {font-size: 14px}
.style8 {
font-size: 18px;
font-weight: bold;
color: #0000FF;
}
.style9 {font-size: 18px}
.style7 { font-size: 18px;
color: #0000FF;
}
-->
</style>
</head>
<!--#include file="conn.asp"-->
<%
'畢業設計:林林在線網絡招聘系統
'畢業設計:林林在線網絡招聘系統
if session("user")="" then
Response.write("<center>使用錯誤,請先登陸")
Response.End
end if
%>
<%
dim id,user
dim rs, sql,rs1
dim rs2,rs3
user=session("user")
id=session("id")
set Rs1 = Conn.Execute("select * from userinfo where user='"&session("user") &"'")
if rs1.eof then
Response.write("<center>您還沒有登記,請先登記")
Response.End
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from userinfo where user='"&session("user")&"'"
rs.Open sql,conn,1,1
%>
<body>
<table width="496" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td scope="col"><div align="center"><span class="style9">
<%
Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#CCCCCC'>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style2'>修改資料</span><FORM METHOD='POST' TARGET= '_self' ACTION='editok.asp'></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<TD><span class='style1'>姓名:</span><input id='text1' name='username' style='height:21px;width:103px' value='"&rs("username")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
if rs("usersex")="男" then
Response.Write "<td><span class='style1'>性別:</span><select name='select'><option value='1' selected='selected'>男</option><option value='0'>女</option></select></td>"
else
Response.Write "<td><span class='style1'>性別:</span><select name='select'><option value='1'>男</option><option value='0' selected='selected'>女</option></select></td>"
end if
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>年齡:</span><input id='text13' name='userage' style='height:21px;width:103px' value='"&rs("userage")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
%>
<td><span class="style1">學歷:
<%if rs("userlevel")="博士" then%>
<select name="level" id="level">
<option value="博士" selected="selected">博士</option>
<option value="碩士">碩士</option>
<option value="研究生">研究生</option>
<option value="本科">本科</option>
<option value="大專">大專</option>
<option value="高中及以下">高中及以下</option>
</select>
<%else if rs("userlevel")="碩士" then%>
<select name="level" id="level">
<option value="博士">博士</option>
<option value="碩士" selected="selected">碩士</option>
<option value="研究生">研究生</option>
<option value="本科">本科</option>
<option value="大專">大專</option>
<option value="高中及以下">高中及以下</option>
</select>
<%else if rs("userlevel")="研究生" then%>
<select name="level" id="level">
<option value="博士">博士</option>
<option value="碩士">碩士</option>
<option value="研究生" selected="selected">研究生</option>
<option value="本科">本科</option>
<option value="大專">大專</option>
<option value="高中及以下">高中及以下</option>
</select>
<%else if rs("userlevel")="本科" then%>
<select name="level" id="level">
<option value="博士">博士</option>
<option value="碩士">碩士</option>
<option value="研究生">研究生</option>
<option value="本科" selected="selected">本科</option>
<option value="大專">大專</option>
<option value="高中及以下">高中及以下</option>
</select>
<%else if rs("userlevel")="大專" then%>
<select name="level" id="level">
<option value="博士">博士</option>
<option value="碩士">碩士</option>
<option value="研究生">研究生</option>
<option value="本科">本科</option>
<option value="大專" selected="selected">大專</option>
<option value="高中及以下">高中及以下</option>
</select>
<%else if rs("userlevel")="高中及以下" then%>
<select name="level" id="level">
<option value="博士">博士</option>
<option value="碩士">碩士</option>
<option value="研究生">研究生</option>
<option value="本科">本科</option>
<option value="大專">大專</option>
<option value="高中及以下" selected="selected">高中及以下</option>
</select>
<%end if
end if
end if
end if
end if
end if
%>
</td>
<%
'Response.Write "<tr bgcolor='#EEEEEE'>"
'Response.Write "<td><span class='style1'>學歷:</span><input id='text14' name='userlevel' style='height:21px;width:103px' value='"&rs("userlevel")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>專業:</span><input id='text15' name='usermajor' style='height:21px;width:103px' value='"&rs("usermajor")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
%>
<td><span class="style1">請選擇分類:
<select class="smallSel" name="classid" size="1">
<%
dim sel
dim classid
classid=request.querystring("classid")
set rs2=server.createobject("adodb.recordset")
sql="select * from jobs"
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then
response.write "Not record."
else
do while not rs2.eof
if classid=cstr(rs2("classid")) then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs2("classID"))+"' name=classid>"+rs2("class")+"</option>"
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
%>
</select>
</td>
<%
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>想要的工作:</span><input id='text16' name='job1' style='height:21px;width:223px' value='"&rs("job1")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>想要的其它工作:</span><input id='text17' name='job2' style='height:21px;width:203px' value='"&rs("job2")&"'></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>E-mail:</span><input id='text15' name='email' style='height:21px;width:103px' value='"&rs("email")&"'></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>電話:</span><input id='text15' name='phone' style='height:21px;width:103px' value='"&rs("phone")&"'></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>地址:</span><input id='text15' name='addr' style='height:21px;width:303px' value='"&rs("addr")&"'><span class='style3'>*</span></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><span class='style1'>個人簡歷:</span><span class='style3'>*</span><br><textarea name='resume' id='textarea4' style='height:135px;width:434px'>"&rs("resume")&"</textarea></td>"
Response.Write "<tr bgcolor='#EEEEEE'>"
Response.Write "<td><INPUT TYPE='SUBMIT' VALUE='修改資料'></td></FORM>"
%>
</td>
</tr>
</table>
<%
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -