com_editzjchk.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file=../inc/err.asp-->
<!--#include file=../inc/ipt.asp-->
<%
dim username,password,com,comabout,email,name,idcard,qq,dianhua,fax,dizhi,class2
dim rs,sql
username=request.cookies("cnmai")("username")
username=trim(request("username"))
password=trim(request("password"))
class2=trim(request("class2"))
com=trim(request("com"))
comabout=trim(request("comabout"))
name=trim(request("name"))
email=trim(request("email"))
idcard=trim(request("idcard"))
qq=trim(request("qq"))
dianhua=trim(request("dianhua"))
fax=trim(request("fax"))
dizhi=trim(request("dizhi"))
chkcnmai(name)
if not isnumeric(idcard) or len(idcard)<15 or len(idcard)>18 then
call errcnmai(6)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [com] where username='"&username&"'"
rs.open sql,conn,1,3
rs("password")=password
rs("class2")=class2
rs("com")=com
rs("comabout")=comabout
rs("name")=name
rs("email")=email
rs("idcard")=idcard
rs("qq")=qq
rs("dianhua")=dianhua
rs("fax")=fax
rs("dizhi")=dizhi
rs.update
rs.close
set rs=nothing
closedb
response.write "修改成功！！"
response.write "<meta http-equiv=refresh content=""1;URL=comlist.asp"">"
response.end
%>