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

%>