基于asp动态网站设计 (三)

基于asp动态网站设计 (三)  
   call WriteErrMsg()
  end if
 else
  founderr=true
  errmsg=errmsg+"<li>没有选定参数</li>"
  call WriteErrMsg()
 end if

 call CloseConn()

这段是关于产品删除的执行代码：
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

if ArticleId="" or Action<>"Del" then
 FoundErr=True
 ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
end if
if FoundErr=False then
 if instr(ArticleID,",")>0 then
  dim idarr,i
  idArr=split(ArticleID)
  for i = 0 to ubound(idArr)
   call DelArticle(clng(idarr(i)))
  next
 else
  call DelArticle(clng(ArticleID))
 end if
end if
if FoundErr=False then
 call CloseConn()
 response.Redirect "productmanage.asp"
else
 call CloseConn()
 call WriteErrMsg()
end if

sub DelArticle(ID)
 PurviewChecked=False
 sqlDel="select * from Product where ID=" & CLng(ID)
 Set rsDel= Server.CreateObject("ADODB.Recordset")
 rsDel.open sqlDel,conn,1,3
 if FoundErr=False then
  if DelUpFiles="Yes" and ObjInstalled=True then
   dim fso,strUploadFiles,arrUploadFiles
   strUploadFiles=rsDel("UploadFiles") & ""
   if strUploadFiles<>"" then
    Set fso = CreateObject("Scripting.FileSystemObject")
    if instr(strUploadFiles,"|")>1 then
     arrUploadFiles=split(strUploadFiles,"|")
     for i=0 to ubound(arrUploadFiles)
      if fso.FileExists(server.MapPath("../" & arrUploadfiles(i))) then
       fso.DeleteFile(server.MapPath("../" & arrUploadfiles(i)))
      end if
     next
    else
     if fso.FileExists(server.MapPath("../" & strUploadfiles)) then
      fso.DeleteFile(server.MapPath("../" & strUploadfiles))
     end if
    end if
    Set fso = nothing
   end if
  end if
  rsDel.delete
  rsDel.update
  set rsDel=nothing
  'conn.execute "delete from Comment where ArticleID=" & CLng(ID)
 end if
end sub

4.1.2 前台对数据的增查
 前台就是用户所能看到的网页。
 前台对数据的增、查也是对数据库的操作，和后台操作比起来，只是不能对其数据进行删除和修改，只能查看和增加，这样才会避免网站的数据被恶意的删除和修改。
 用户通过是通过对网页功能的运用来对数据库进行操作的。至于内部怎么完成这些功能，是设计者通过特需的代码实现的。
下面的代码是关于查看的代码：
sub ShowAllClass()
 if rsBigClass.bof and rsBigClass.eof then
  response.Write "&nbsp;没有任何栏目"
 else
  dim sqlClass,rsClass,strClassName,ClassN,product
  product = trim(Request("product")) 
  Set rs= Server.CreateObject("ADODB.Recordset")
  if product <>"" then
  exec="select * from BigClass where BigClassName like '%"&product&+"%'"
        set rs   =   conn.Execute(exec) 
  do while not rs.eof
   strClassName= "【<a href='Product.asp?BigClassName=" & rs("BigClassName") & "'><b>" & rs("BigClassName") & "</b></a>】<br><br>"
   sqlClass="select * from SmallClass where BigClassName='" & rs("BigClassName") & "' Order by SmallClassID"
   Set rsClass= Server.CreateObject("ADODB.Recordset")
   rsClass.open sqlClass,conn,1,1
   do while not rsClass.eof
    strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
    rsClass.movenext
   loop
   response.write strClassName & "<br><br>"
   rs.movenext
  loop
   else
   exec="select * from BigClass"
        set rs   =   conn.Execute(exec) 
  do while not rs.eof
   strClassName= "【<a href='Product.asp?BigClassName=" & rs("BigClassName") & "'><b>" & rs("BigClassName") & "</b></a>】<br><br>"
   sqlClass="select * from SmallClass where BigClassName='" & rs("BigClassName") & "' Order by SmallClassID"
   Set rsClass= Server.CreateObject("ADODB.Recordset")
   rsClass.open sqlClass,conn,1,1
   do while not rsClass.eof
    strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
    rsClass.movenext
   loop
   response.write strClassName & "<br><br>"
   rs.movenext
  loop
  end if  
  rsClass.close
  set rsClass=nothing
  rs.close
  set rs = nothing
 end if
end sub

4.2 页面设计

首页 上一页 1 2 3 4 5 下一页 尾页 3/5/5

基于asp动态网站设计 (三)由毕业论文网（www.huoyuandh.com）会员上传。