cngunion.asp

图文管理。1,新闻动态 2,网址导航(含有60个著名设计网址) 3,图片展示 4,会员注册管理等

<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->



<% 
if session("userlogin")<>session.sessionid then
  Response.Write "<script language=javascript>{window.alert('对不起!您还没登录会员管理系统,请返回!');window.location.href='user.asp';}</script>"
  else
  dim userid,rs,sql
  userid = Session("id")
  set rs=server.createobject("adodb.recordset")   '创建纪录集
  sql="select * from ax_user where id="&cint(userid)&"" '查找用户信息
  rs.open sql,cn,3,2
  rs("email")=trim(HTMLEncode(request.Form("email")))
  rs("userqq")=trim(HTMLEncode(request.Form("qq")))
  rs("dname")=trim(HTMLEncode(request.Form("dname")))
  rs("dbook")=trim(HTMLEncode(request.Form("dbook")))
  rs("daddress")=trim(HTMLEncode(request.Form("daddress")))
  rs("dweb")=trim(HTMLEncode(request.Form("dweb")))
  rs("dphone")=trim(HTMLEncode(request.Form("dphone")))
  rs("dn")=trim(HTMLEncode(request.Form("dn")))
  rs("dpic")=trim(HTMLEncode(request.Form("dpic")))
  if request.Form("dclass")<>0 then
  rs("dclass")=HTMLEncode(request.Form("dclass"))
  else
  rs("dclass")=rs("dclass")
  end if
  rs("best")=true
  rs.update
  Response.Write "<script language=javascript>{window.alert('恭喜您!登记修改工作室资料成功!');window.location.href='user.asp';}</script>"
 end if %>