利用ASP在线维护数据库（2）

　　然后，编写ASP程序tzwh1.asp 文件。从session 中读取数据，根据数据项用split函数将其分开，转化为一个数组进行处理，并用trim函数去掉数据前后空格。程序部分代码如下：

<％ set rs=session(“rs1”) 
edit=trim(Request(“edit”)) 
id=“, ”＆trim(Request(“id”))＆“, ” 
eno=split(trim(Request(“NO”)), “, ”) 
etitle=split(trim(Request(“title”)), “, ”) 
epdate=split(trim(Request(“pdate”)), “, ”) 
ewriter=split(trim(Request(“writer”)), “, ”) 
econtent=split(trim(Request(“content”)) , “, ”) 
％> 

最后，实现功能键。功能键的选择用case 语句实现。每一个实现过程中，利用inStr比较函数将读出来的eno与数据项的标识号id相比较，可识别出所选的复选框是否有效。for循环体的下界采用Ubound函数，避免了网页数据的提取错误。部分程序代码如下：

<％ select case edit 
case “insert” 
for i=0 to Ubound(eno) 
if inStr(id,“, ”＆trim(eno(i))＆“,”)>0 then 
rs.AddNew 
rs(“title”)=trim(etitle(i)) 
rs(“pdate”)=trim(epdate(i)) 
rs(“writer”)=trim(ewriter(i)) 
rs(“content”)=trim(econtent(i)) 
rs.Update 
％> 
 
<％ =rs(“pdate”)  
％>. 
<％ =rs(“title”) ％>. 
插入新记录成功！ 
 
<％ End if 
Next％> 
<％ case “delete” 
for i=0 to 9  
if inStr(id,“, ”＆trim(rs(“id”))＆“,” )>0 then％> 
 
<％ =rs(“pdate”)  
％>. 
<％ =rs(“title”) ％>. 
记录删除成功！ 
 
<％ 
rs.delete 1 
End if 
rs.movenext 
if rs.eof then Exit for End if 
Next 
case “update” 
for i=0 to 9 
if inStr(id,“,”＆trim(rs(“id”))＆“,”)>0 then 
rs(“title”)=trim(etitle(i)) 
rs(“pdate”)= trim(epdate(i)) 
rs(“writer”)= trim(ewriter(i)) 
rs(“content”)= trim(econtent(i)) 
rs.Update ％> 
 
<％ =rs(“pdate”)  
％>. 
<％ =rs(“title”) ％>. 
记录修改成功！ 
 
<％ End if 
rs.movenext 
if rs.eof then Exit for End if 
Next 
end select 
％>