modi.asp

手机入网登记管理

<%if session("password")<>"" then%>
<%
dim IID
IID=request("id")

if request("xh")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('请输入公司电话！');" & "history.back()" & "</script>" 
	Response.End
end if
user=request("user")
bj=request("bj")
xh=request("xh")
DZ=request("DZ")
kc=request("kc")
cj=request("cj")
fy=request("fy")
zshf=request("zshf")
sjhf=request("sjhf")


set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'set rs=conn.execute("update bbs1(bj,xh,user,DZ,kc,cj,fy,zshf,sjhf,xq,lx)values('"&bj&"','"&xh&"','"&user&"','"&DZ&"','"&kc&"','"&cj&"','"&fy&"','"&zshf&"','"&sjhf&"')")
sql="update bbs1 set bj='"&bj&"',xh='"&xh&"',user='"&user&"',DZ='"&DZ&"',kc='"&kc&"',cj='"&cj&"',fy='"&fy&"',zshf='"&zshf&"',sjhf='"&sjhf&"' where id="+IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('修改成功！');"&"window.location.href = 'admin.asp'"&" </script>" 

set rs=nothing
%>
<%else
Response.Redirect "admpost.asp"
end if%>