modifyinfook.asp

该系统可对信息系统尽行有效的分类管理

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
	UserId=trim(request("txtId"))
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from Userinfo where txtId='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
		'必添项

		rsUser("txtPass")=Request("txtPass")

		rsUser("txtCat")=Request("txtCat")
		rsUser("txtCompany")=Request("txtCompany")
		rsUser("txtContect")=Request("txtContect")
		rsUser("txtTel")=Request("txtTel")
		rsUser("txtFax")=Request("txtFax")
		rsUser("txtEmail")=Request("txtEmail")
		rsUser("txtProv")=Request("txtProv")
		rsUser("txtCity")=Request("txtCity")
		rsUser("txtPost")=Request("txtPost")
		rsUser("txtAddress")=Request("txtAddress")
		rsUser("txtDesc")=htmlencode(Request("txtDesc"))
		
		If Request("txtUrl")="" Then
			rsUser("txtUrl")="未知"
		Else
			rsUser("txtUrl")=trim(Request("txtUrl"))
		End If
		
		If Request("txtTel")="" Then
			rsUser("txtTel")="未知"
		Else
			rsUser("txtTel")=trim(Request("txtTel"))
		End If
		
		If Request("txtFax")="" Then
			rsUser("txtFax")="未知"
		Else
			rsUser("txtFax")=trim(Request("txtFax"))
		End If

		rsUser.update
		rsUser.close
		conn.close
		
		response.write "<script language=JavaScript>{window.alert('资料修改成功！');window.location.href='default.asp'}</script>"
	    response.end


%>