'数据库连接

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"

%>