📄 editok.asp
字号:
<%
'毕业设计:林林在线网络招聘系统
'毕业设计:林林在线网络招聘系统
dim name,com,want1,want2,phone,id,email,addr,introduce,classid
name = Request("comname")
com = Request("user")
want1 = Request("want1")
want2 = Request("want2")
phone = Request("phone")
id = Request("id")
email = Request("email")
addr = Request("addr")
introduce = Request("introduce")
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,cid,sql
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from cominfo where com='"&session("user")&"'"
rs.Open sql,conn,1,3
if request.Form("comname")="" or request.Form("addr")="" or request.Form("want1")="" or request.Form("phone")="" or _
request.Form("introduce")="" 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 cid=("select comid from cominfo where com='"&session("user")&"'")
RS.Update Array("comname", "addr","want1","want2","time","email","phone","introduce","classid"), _
Array(name,addr,want1,want1,Now(),email,phone,introduce,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 + -