modify1.asp

本程序系统完全实现了医院网站程序的全部功能的前台和后台程序

<!--#include file="../inc/err.asp" -->
<!-- #include file="../../connections/conndb.asp" -->
<%
'处理数据
id=request("id")
passwd=checkstr(trim(request("passwd")))
company=checkstr(trim(request("company")))
address=checkstr(trim(request("address")))
zip=checkstr(trim(request("zip")))
linkman=checkstr(trim(request("linkman")))
tel=checkstr(trim(request("tel")))
mobile=checkstr(trim(request("mobile")))
fax=checkstr(trim(request("fax")))
email=checkstr(trim(request("email")))
http=checkstr(trim(request("http")))
memo=request("memo")
'更新记录
set rs=server.createobject("adodb.recordset")
sql="select  * from tbl_client where id="&id
rs.open sql,conn,1,3
if not rs.eof then
rs("passwd")=passwd
rs("company")=company
rs("address")=address
rs("zip")=zip
rs("linkman")=linkman
rs("tel")=tel
rs("mobile")=mobile
rs("fax")=fax
rs("email")=email
rs("http")=http
rs("memo")=memo
rs.update
rs.close
conn.close
response.Redirect "show.asp?id="&id
else
call msg("记录不存在！","javascript:window.close()")
response.End()
end if
rs.close
conn.close
%>