updataok.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 35 行

<%
Response.Buffer=true
http = Request.ServerVariables("HTTP_REFERER")
If instr(http,"userinfo.asp")=0 Then
        response.write "program error！"
        response.end
end if
function chuser(u)
  dim filter,xx,usernameenable,su
  for i=1 to len(u)
    su=mid(u,i,1)
    xx=asc(su)
    zhengchu = -1*xx \ 256
    yushu = -1*xx mod 256
    if (xx>122 or (xx>57 and xx<97) or (xx<-10241 and xx>-10247) or yushu=129 or yushu>192 or (yushu<2 and yushu>-1) or (((zhengchu>1 and zhengchu<8) or (zhengchu>79 and zhengchu<86)) and yushu<96 ) or (xx>-352 and xx<48) or (xx<-22016 and xx>-24321) or (xx<-32448)) then
      chuser=true
      exit function
    end if
  next
  chuser=false
end function
name=session("hxf_u_nickname")
if name="" then Response.Redirect "error.asp?id=440"
ljlpwd=trim(Request.form("pwd"))
ljlkey=Request.form("key")
if len(ljlpwd)<1 or len(ljlpwd)>8 or len(ljlkey)<1 or len(ljlkey)>8 then Response.Redirect "error.asp?id=161"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="update 用户 set ljl_pwd='" & ljlpwd & "',ljl_key='"& ljlkey &"' where 姓名='" & name & "'"
			conn.Execute(sql)
			conn.close
            response.redirect "userinfo.asp"
%>