add1.asp

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

<!-- #include file="../inc/err.asp" -->
<!-- #include file="../../connections/conndb.asp" -->
<%
'处理数据
userid=checkstr(trim(request("userid")))
'-----------检查用户是否存在
sql="select userid from tbl_client where userid='"&userid&"'"
set rs=conn.execute(sql)
if not rs.eof then
response.Write"该用户已经存在<a href=javascript:history.back()>返回</a>"
rs.close
response.End()
end if
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"
rs.open sql,conn,1,3
rs.addnew
rs("userid")=userid
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("inputdate")=now()
rs.update
rs.close
conn.close
response.Redirect "add.asp?msg=会员添加成功！"
%>