saveup.asp

娱乐A视网企业黄页程序 1.首页 index.asp 2.管理页 login.asp 管理员admin 密码admin

<!--#include file="dbpath/dbpath.asp"-->
<%
if request.cookies("okadmin")="" then
  response.redirect "login.asp"
end if
   sname = Request.form("txtname")
   semail = Request.form("txtemail")
   sphone = request.form("txtphone")
   saddress = Request.form("txtaddress")
   scode =  Request.form("txtcode")
   ssubject = Request.form("txtcontop")
   smemo = Request.form("txtcontent")
   sgq = request.form("txtgq")
   stypeid = request.form("typeid")
   sgs= request.form("txtgs")
   useridtxt = Request("userid")
   pagetxt = Request("page")
   lbidtxt=request("lbid")
   dim UpdateCursor
   Set UpdateCursor = Server.CreateObject("ADODB.Recordset")
sql="select * from gq where id=" & useridtxt
UpdateCursor.open sql,conn,1,3
UpdateCursor("name")=sname
UpdateCursor("email")=semail
UpdateCursor("phone")=sphone
UpdateCursor("address")=saddress
UpdateCursor("code")=scode
UpdateCursor("subject")=ssubject
UpdateCursor("gs")=sgs
UpdateCursor("gq")=sgq
UpdateCursor("lbid")=stypeid
UpdateCursor("memo")=smemo
UpdateCursor.update
   set conn=nothing
   response.redirect "glgq860.asp?page="& pagetxt &"&lbid="&lbidtxt
%>