📄 editok.asp
字号:
<%
'网络022班孙超的毕业设计
'网络022班孙超的毕业设计
dim name,job1,job2,major,sex,age,level,email,addr,resumes,phone,classid
name = Request("username")
job1 = Request("job1")
job2 = Request("job2")
major = Request("usermajor")
age = Request("userage")
level = Request("level")
email = Request("email")
addr = Request("addr")
resumes = Request("resume")
phone = Request("phone")
classid = Request("classid")
%>
<HTML>
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style3 {color: #FF0000}
-->
</style>
<BODY BGCOLOR="LightYellow">
<!-- #include file="../conn.asp" -->
<%
if session("user")="" then
Response.write("<center>使用错误,请先登陆")
Response.End
end if
%>
<%
dim rs,id,sql
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from userinfo where user='"&session("user")&"'"
rs.Open sql,conn,1,3
if request.Form("username")="" or request.Form("userage")="" or request.Form("job1")="" or request.Form("usermajor")="" _
or request.Form("addr")="" or request.Form("resume")="" then
Response.write "<CENTER><P><span class='style2'>带 <span class='style3'>*</span> 都不能为空！</span></p>" & _
"<P><a href='javascript:onclick=history.go(-1)'><span class='style2'>返回</span></a></P></CENTER>"
Response.End
end if
RS.Move id=("select userid from userinfo where user='"&session("user")&"'")
if Request.Form("select") = "1" then
Rs("usersex")="男"
else
Rs("usersex")="女"
end if
RS.Update Array("username","userage","userlevel","usermajor","job1","job2","time","email","addr","resume","phone","classid"), _
Array(name,age,level,major,job1,job2,Now(),email,addr,resumes,phone,classid)
'关闭数据库连接并释放对象
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<CENTER>
<P class="style1"><span class="style3">*</span>修改资料成功<span class="style3">*</span><br>
<P class="style1">返回</P>
</CENTER>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -