实现以上功能的核心代码如下：
<% sub saveks()
dim name,danwei
sql="select * from t_table"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
name=trim(replace(request.form("ksname"),"'",""))
danwei=trim(replace(request.form("danwei"),"'",""))
if danwei="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你必须填写单位名称！"
else
rs("danwei")=danwei
end if
if name="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你必须填写科室名称！"
else
rs("ks_name")=name
end if
if founderr then
call diserror()
response.end
else
rs.update
rs.close
set rs=nothing
response.write"<script language=java script>{window.alert('添加成功!谢谢!');window.location.href='?action=addks'}</script>"
end if
end sub
sub savedw()
dim name
sql="select * from danwei"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
name=trim(replace(request.form("dwname"),"'",""))
if name="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你必须填写单位名称！"
else
rs("danwei")=name
end if
if founderr then
call diserror()
response.end
else
rs.update
rs.close
set rs=nothing
response.write"<script language=java script>{window.alert('添加成功!谢谢!');window.location.href='?action=adddw'}</script>"
end if
end sub%>
4.5使用说明
1.安装方法：
1. 附加系统的数据库jfpyweb,在database文件内
2. 修改conn.asp的数据库配置
3．首页文件名：index.htm
