📄 mone_edit.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,SqlStr
Dim id,whatlevel,message
Dim ismone
id = Request("id")
whatlevel = Trim(Request.Form("whatlevel"))
message = HTMLEncode2(Request.Form("message"))
Set padd = Server.CreateObject("ADODB.RecordSet")
SqlStr = "Select Mone,isMone From [HQ_User] Where ID="&id
padd.Open SqlStr,Conn,1,3
ismone = padd("isMone")
If ismone=0 Then
padd("Mone") = message
padd("isMone") = 1
padd.Update
Response.Write "<script language=javascript>alert('个人简历修改成功!');"
Response.Write "window.document.location.href='Admin_Main.asp';</script>"
Else
Response.Write "<script language=javascript>alert('个人简历已修改,不能再修改!');"
Response.Write "window.document.location.href='Admin_Main.asp';</script>"
End if
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -