'数据库连接
db="db.mdb"
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath(db)
'添加数据函数
function add_form(sl)'添加数据函数
'response.write request("act")
'response.end
if request("act")="add_save" and sl<>"" then
'------------------生成SQL语句----------------小琦
'--------循环memo
For i = 1 To sl
zd_name=zd_name&"memo"&i&","
if request("memo"&i&"")<>"" then
zd_value=zd_value&"'"&request("memo"&i&"")&"'"&","
else
zd_value=zd_value&"'"&null&"'"&","
end if
next
'//--------循环memo
'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)
zd_value=left(zd_value,len(zd_value)-1)
sql="Insert into pub_doc("&zd_name&")values("&zd_value&")"
'//------------------生成SQL语句----------------小琦
conn.execute(sql)
response.write "添加数据成功!"
Response.End
end if
end function
'修改数据函数
function edit_form(sl)'修改数据函数
if request("id")<>"" and request("act")="edit_save" and sl<>"" then
'------------------生成SQL语句----------------小琦
'--------循环memo
zd_name="" '字段名子
For i = 1 To sl
zd_name=zd_name&"memo"&i&"="
if request("memo"&i&"")<>"" then
zd_name=zd_name&"'"&request("memo"&i&"")&"'"&","
else
zd_name=zd_name&"'"&null&"'"&","
end if
next
'//--------循环memo
'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)
'//------------------生成SQL语句----------------小琦
sql="Update pub_doc set "&zd_name&" where id="&request("id")&""
conn.execute(sql)
response.write "修改成功!"
Response.End()
end if
end function
function read_edit_form(sl)'修改前读取数据函数
if request("id")<>"" and request("act")="edit" and sl<>"" then'读取要修改的数据
'------------------生成SQL语句----------------小琦
zd_name="" '字段名子
'--------循环memo
For i = 1 To sl
zd_name=zd_name&"memo"&i&","
next
'//--------循环memo
'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)
sql="select top 1 "&zd_name&" from pub_doc where id="&request("id")&""
'//------------------生成SQL语句----------------小琦
set rs = conn.execute(sql)'查询
response.write "
response.write "function read_data(){"'
'--------循环赋值
for each i in split(zd_name,",")
response.write "frm."&i&".value="""&Replace(Replace(Replace(rs(i)&"||",chr(13),"\n"),chr(10),"\n"),"||","")&""";"'
next
'//--------循环赋值
response.write "}"
end if
end function
function read_form(sl)'读取数据函数
if request("id")<>"" and request("act")="" and sl<>"" then'读取要查看的数据
'------------------生成SQL语句----------------小琦
'--------循环memo
For i = 1 To sl
zd_name=zd_name&"memo"&i&","
next
'//--------循环memo
'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)
sql="select top 1 "&zd_name&" from pub_doc where id="&request("id")&""
'//------------------生成SQL语句----------------小琦
set rs = conn.execute(sql)'查询
response.write ""'写java script的脚本
response.write "function read_data(){"'
'--------循环赋值
for each i in split(zd_name,",")
if rs(i)="" then kongge=" "'如果内容为空，则用空格代替
response.write "frm."&i&".parentElement.innerText="""&rs(i)&kongge&""";"'
next
'//--------循环赋值
response.write "}"
end if
end function
function del()'删除数据
if request("id")<>"" and request("act")="del" then
conn.execute("Delete from pub_doc where id="&request("id")&" ")
response.write "删除成功!"
response.end
end if
end function
function xiaoqi_end()
if request("id")<>"" and request("act")="" then response.write "frm.save.removeNode(true);read_data()"
if request("id")<>"" and request("act")="edit" then response.write "read_data()"
session("act")=""
end function
function get_act(sl)
add_form sl
edit_form sl
read_edit_form sl
read_form sl
del
end function
'设置动作
if request("act")="add" then session("act")="add_save"
if request("act")="edit" then session("act")="edit_save"
%>
