save_soft.asp

前台完全分离了HTML与ASP

<%
Function HTMLEncode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(38), "&#38;")
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "<br/>")
    HTMLEncode = fString
end if
end Function

Function saveSoft()
 dim take_time,begin_time,errMessage,temp_title,TypeId
 begin_time=timer()  
 set srs=Server.CreateObject("Adodb.Recordset")
 sql="select * from ZD_Soft"
 srs.open sql,conn,1,3
 srs.addnew
 srs("title")=trim(Request.Form("title"))
 srs("bulk")=trim(Request.Form("softbulk"))
 srs("t_id")=trim(Request.Form("softtype"))
 srs("accredit")=trim(Request.Form("accredit"))
 srs("runOs")=trim(Request.Form("runOs"))
 srs("softlevel")=trim(Request.Form("softlevel"))
 srs("language")=trim(Request.Form("language"))
 srs("hotShowImage")=trim(Request.Form("hotShowImage"))
 srs("power")=trim(Request.Form("softpower"))
 srs("power_ad")=trim(Request.Form("poweraddress"))
 srs("hotShow")=CBool(Request.Form("hotShow"))
 srs("MemberType")=Request.Form("MemberType")
 srs("message")=HTMLEncode(Request.Form("message"))
 srs("addtime")=now()
 srs.update
 TypeId=srs("id")
 srs.close
 set srs=nothing
 
  set urs=Server.CreateObject("Adodb.Recordset")                      '下载地址数据保存
  usql="select * from ZD_SoftUrl"
  urs.open usql,conn,1,3
  downUrlCount=Cint(Request.Form("checkNum"))
  for i=0 to downUrlCount
  get_uname=Cstr("url"&i)
  get_utitle=Cstr("urlTitle"&i)
  IF Request.Form(get_uname)<>"" Then
  urs.addnew
  urs("d_id")=TypeId
  urs("url")=request(get_uname)
  urs("urlTitle")=Request.Form(get_utitle)
  urs.update
  End IF
  next
  urs.close
  set urs=nothing
 take_time=FormatNumber((timer()-begin_time),2)

 temp_title=Request.Form("title")
 IF take_time<1 Then
  take_time ="0" & take_time
 End IF
 call SaveLog(Session("member"),"成功添加软件"&temp_title,now(),"软件添加",getIP(),true)
 saveSoft = "<br>◇&nbsp;软件<font color=red>"&temp_title&"</font>添加成功,总计费时:<font color=red>0"&take_time&"</font>秒"
End Function

'===================================================================================================================

Function saveEditeSoft()
 dim take_time,begin_time,errMessage
 begin_time=timer()  
 set srs=Server.CreateObject("Adodb.Recordset")
 sql="select * from ZD_Soft where id="&Request.Form("editeid")
 srs.open sql,conn,1,3
 IF srs.eof Then 
  response.redirect "err.asp?message=您要修改的软件已删除或者您提交了一个不存在的ID号。"
 Else
  srs("title")=trim(Request.Form("title"))
  srs("bulk")=trim(Request.Form("softbulk"))
  srs("t_id")=trim(Request.Form("softtype"))
  srs("accredit")=trim(Request.Form("accredit"))
  srs("runOs")=trim(Request.Form("runOs"))
  srs("softlevel")=trim(Request.Form("softlevel"))
  srs("language")=trim(Request.Form("language"))
  srs("hotShowImage")=trim(Request.Form("hotShowImage"))
  srs("power")=trim(Request.Form("softpower"))
  srs("power_ad")=trim(Request.Form("poweraddress"))
  srs("hotShow")=CBool(Request.Form("hotShow"))
  srs("MemberType")=Request.Form("MemberType")
  srs("message")=HTMLEncode(Request.Form("message"))
   IF Request.Form("isUpdateTime")="true" Then
    srs("addtime")=now()
   End IF
  srs("change")=True

  srs.update
  set srs=nothing

  del_durl="delete * from ZD_SoftUrl where d_id="&Request.Form("editeid")                         '删除下载地址表中记录.
  Conn.Execute(del_durl)

  set urs=Server.CreateObject("Adodb.Recordset")
  usql="select * from ZD_SoftUrl where (id is null)"
  urs.open usql,conn,1,3
  downUrlCount=Cint(request("checkNum"))
  for i=0 to downUrlCount
   get_uname=Cstr("url"&i)
   get_utitle=Cstr("urlTitle"&i)
   IF request(get_uname)<>"" Then
    urs.addnew
    urs("d_id")=Request.Form("editeid")
    urs("url")=Request.Form(get_uname)
	urs("urlTitle")=Request.Form(get_utitle)
    urs.update
   End IF
  next
  urs.close
  set urs = nothing

  take_time=FormatNumber((timer()-begin_time),2)

  temp_title=Request.Form("title")
  IF take_time<1 Then
   take_time ="0" & take_time
  End IF
  call SaveLog(Session("member"),"成功修改软件"&temp_title,now(),"软件修改",getIP(),true)
  saveEditeSoft = "<br>◇&nbsp;软件<font color=red>"&temp_title&"</font>添加成功,总计费时:<font color=red>0"&take_time&"</font>秒"
End IF 
End Function
'=====================================================================================================================
Function del_Soft(del_id)
  dim get_did,d_name,d_name2,d_title,cmdmessage
  get_did=split(del_id,",")
  for i=0 to ubound(get_did)
   del_sql="delete * from ZD_Soft where id="&get_did(i)                           '删除数据库记录
   Conn.Execute(del_sql)

   del_durl="delete * from ZD_SoftUrl where d_id="&get_did(i)                         '删除下载地址表中记录.
   Conn.Execute(del_durl)
   cmdmessage=cmdmessage & get_did(i) & ","	 
  next
  call SaveLog(Session("member"),"成功删除软件,ID号分别为:"&cmdmessage,now(),"软件删除",getIP(),true)
  del_Soft="删除数据库记录:<font color=red>" & cmdmessage & "</font>"
End Function

%>