functionmanage.asp

简单整站程序

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%
'--------------------------------------------------------------------
'函数名：RecordSearch()
'作  用：搜索
'--------------------------------------------------------------------
function RecordSearch(strSearch,strKeySearch)
   strSearchSZ=split(strSearch,"|")
   Response.Write "<tr>"
   Response.Write "<form method=Post name='myform' action='?action=search'>"
   Response.Write "<td class=forumrow height='22' colspan='12'>分类查询： <input align='absmiddle' name='keyword' type='text' id='keyword' size='25' value='"&request("keyword")&"'>" 
   Response.Write "&nbsp;查询方法:"
   Response.Write "<select size='1' name='class'>"
   for i=Lbound(strSearchSZ) to Ubound(strSearchSZ)
      Response.Write "<option value='"&strSearchSZ(i)&"'"
      if strSearchSZ(i)=request("class") then Response.Write "Selected"
      Response.Write ">"&strSearchSZ(i+1)&"</option>"
      i=i+1
   next
   Response.Write "</select>"
   Response.Write "&nbsp;&nbsp;<input type='submit' name='Submit' align='absmiddle' value='查 询...' class=button></td></tr>"
   if strKeySearch<>"" then
      Response.Write"<tr><td class=forumrow height=22 colspan=12>"
      Response.Write"点击查询：&nbsp;"
      strKeySearchSZ=split(strKeySearch,"$$")
      for i=Lbound(strKeySearchSZ) to Ubound(strKeySearchSZ)
         strSKeySearchSZ=split(strKeySearchSZ(i),"|")
         for j=Lbound(strSKeySearchSZ) to Ubound(strSKeySearchSZ)
            if j=0 then Response.Write "[<a href='?action=search&class="&strSkeySearchSZ(1)&"&keyword="&strSkeySearchSZ(2)&"'>"&strSkeySearchSZ(0)&"</a>]&nbsp;&nbsp;" 
         next
      next
   end if
   Response.write "</td></tr>"
   Response.Write "</form>"
end function

'--------------------------------------------------------------------
'函数名：DelRecord()
'作  用：删除信息
'--------------------------------------------------------------------
function DelRecord(tabName,fieldName)
   selectid=request("selectid")
   if selectid<>"" then 
      conn.execute ("delete from "&tabName&" where "& fieldName &" in ("&selectid&")")
	  response.Redirect "?action="&request("action")&"&page="&request("page")&"&keyword="&request("keyword")&"&class="&request("class")
   end if
 
   Response.Write"<tr>"
   Response.Write"<td height='22' class='forumRowHighlight STYLE1'>&nbsp;</td>"
   Response.Write"<td height='22' colspan='10' class='forumRowHighlight' align='right'>全选"
   Response.Write"<input type='checkbox' name='checkbox' value='Check All' onClick='mm()'>"   
   Response.Write"<input type='submit' name='Submit' value='删 除' onClick='return test();' class=button>&nbsp;</td>"
   Response.Write"</tr>"
end function

'--------------------------------------------------------------------
'函数名：DelMemRecord()
'作  用：删除信息
'--------------------------------------------------------------------
function DelMemRecord(tabName,fieldName)
   selectid=request("selectid")
   if selectid<>"" then 
      '删除诚信资料
      set rs88=conn.execute("select * from MemberPic where MemberID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("PicName"))
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      '删除供应信息
      set rs88=conn.execute("select * from ProvideInfo where MemberID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("SmallPic"))
         DelFile(rs88("BigPic"))         
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      '删除求购信息
      set rs88=conn.execute("select * from BuyInfo where MemberID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("SmallPic"))
         DelFile(rs88("BigPic"))         
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      '删除产品信息
      set rs88=conn.execute("select SmallPic,BigPic from Product where MemberID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("SmallPic"))
         DelFile(rs88("BigPic"))         
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      '删除视频信息
      set rs88=conn.execute("select SmallPic,BigPic from Video where MemberID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("SmallPic"))
         DelFile(rs88("BigPic"))         
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      
      conn.execute ("delete from "&tabName&" where "& fieldName &" in ("&selectid&")")
	  response.Redirect "?action="&request("action")&"&page="&request("page")&"&keyword="&request("keyword")&"&class="&request("class")
   end if
 
   Response.Write"<tr>"
   Response.Write"<td height='22' class='forumRowHighlight STYLE1'>&nbsp;</td>"
   Response.Write"<td height='22' colspan='10' class='forumRowHighlight' align='right'>全选"
   Response.Write"<input type='checkbox' name='checkbox' value='Check All' onClick='mm()'>"   
   Response.Write"<input type='submit' name='Submit' value='删 除' onClick='return test();' class=button>&nbsp;</td>"
   Response.Write"</tr>"
end function

'--------------------------------------------------------------------
'函数名：DelProduct()
'作  用：删除产品
'--------------------------------------------------------------------
function DelProduct(tabName,fieldName)
   selectid=request("selectid")
   if selectid<>"" then 
      set rs88=conn.execute("select * from "&tabName&" where "& fieldName &" in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("SmallPic"))
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      conn.execute ("delete from "&tabName&" where "& fieldName &" in ("&selectid&")")
	  response.Redirect "?action="&request("action")&"&page="&request("page")&"&keyword="&request("keyword")&"&class="&request("class")
   end if
 
   Response.Write"<tr>"
   Response.Write"<td height='22' class='forumRowHighlight STYLE1'>&nbsp;</td>"
   Response.Write"<td height='22' colspan='10' class='forumRowHighlight' align='right'>全选"
   Response.Write"<input type='checkbox' name='checkbox' value='Check All' onClick='mm()'>"   
   Response.Write"<input type='submit' name='Submit' value='删 除' onClick='return test();' class=button>&nbsp;</td>"
   Response.Write"</tr>"
end function

'--------------------------------------------------------------------
'函数名：DelAdv()
'作  用：删除广告
'--------------------------------------------------------------------
function DelAdv(tabName,fieldName)
   selectid=request("selectid")
   if selectid<>"" then 
      set rs88=conn.execute("select * from "&tabName&" where "& fieldName &" in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("PicName"))
      rs88.movenext
      loop
      rs88.close
      set rs88=nothing
      conn.execute ("delete from "&tabName&" where "& fieldName &" in ("&selectid&")")
	  response.Redirect "?action="&request("action")&"&page="&request("page")&"&keyword="&request("keyword")&"&class="&request("class")
   end if
 
   Response.Write"<tr>"
   Response.Write"<td height='22' class='forumRowHighlight STYLE1'>&nbsp;</td>"
   Response.Write"<td height='22' colspan='10' class='forumRowHighlight' align='right'>全选"
   Response.Write"<input type='checkbox' name='checkbox' value='Check All' onClick='mm()'>"   
   Response.Write"<input type='submit' name='Submit' value='删 除' onClick='return test();' class=button>&nbsp;</td>"
   Response.Write"</tr>"
end function

'--------------------------------------------------------------------
'函数名：DelNewsClass2()
'作  用：删除信息类别
'--------------------------------------------------------------------
function DelNewsClass2(tabName,fieldName)
   selectid=request("selectid")
   if selectid<>"" then 
      set rs88=conn.execute("select * from News where NewsClass2ID in ("&selectid&")")
      do while not rs88.eof
         DelFile(rs88("PicName"))
      rs88.movenext