userlook_edit_ok.asp
来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 76 行
ASP
76 行
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" style="background-color: #999999" text="#000000">
<!--#include file="includefile/conn.asp" -->
<%
if session("userlook")<>"mfkiqpl" then
session("errormsg")="您是无权用户!"
Response.Redirect ("error.asp")
end if
dim id,mfkiqpl,textfield,textfield1,textfield2,textfield3,textfield4,textfield5,textfield6,textfield7,textfield8,textfield9,textfield10,textfield11,textfield12,textfield13,textfield14,textfield15,textfield16,textfield17,textfield18,textfield19,textfield20,textfield21,textfield22,textfield23
id=request("id")
textfield=Request("textfield")
textfield1=Request("textfield1")
textfield2=Request("textfield2")
textfield3=Request("textfield3")
textfield4=Request("textfield4")
textfield5=Request("textfield5")
textfield6=Request("textfield6")
textfield7=Request("textfield7")
textfield8=Request("textfield8")
textfield9=Request("textfield9")
textfield10=Request("textfield10")
textfield11=Request("textfield11")
textfield12=Request("textfield12")
textfield13=Request("textfield13")
textfield14=Request("textfield14")
textfield15=Request("textfield15")
textfield16=Request("textfield16")
textfield17=Request("textfield17")
textfield18=Request("textfield18")
textfield19=Request("textfield19")
textfield20=Request("textfield20")
textfield21=Request("textfield21")
textfield22=Request("textfield22")
textfield23=Request("textfield23")
mfkiqpl=1
sql="select * from giveme where id=" +id
rs.open sql,,1,2
rs("m_id")=textfield
rs("m_xianlu_name")=textfield2
rs("m_name")=textfield3
rs("m_address")=textfield4
rs("m_email")=textfield5
rs("m_oicq")=textfield6
rs("m_age")=textfield7
rs("m_homepage")=textfield8
rs("m_phone")=textfield9
rs("m_shouji")=textfield10
rs("m_fax")=textfield11
rs("m_gongzuodanwei")=textfield12
rs("m_zhengjian")=textfield13
rs("m_youbian")=textfield14
rs("m_daoyou")=textfield15
rs("m_renshuo")=textfield16
rs("m_pingchuan")=textfield17
rs("m_yudingtime")=textfield18
rs("m_laiyoutime")=textfield19
rs("m_huanchengtime")=textfield20
rs("m_mfk")=textfield21
rs("m_mfk_1")=textfield22
rs("m_mfk_2")=textfield23
rs("m_show")=mfkiqpl
rs.update
rs.close
conn.close
session("1")="您本次修改成功,感谢您对我们的支持!"
Response.Redirect "ok.asp"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?