sbksave.asp

创建和运行动态、交互的Web服务器应用程序

<!--#include file="conn.asp"-->
<%dim action,sbkrs,sbkid
sbkid=request.QueryString("id")
action=request.QueryString("action")
select case action
       case ""
       case "edit"
       function HTMLEncode2(fString)
	         fString = Replace(fString, CHR(13), "")
	         fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	         fString = Replace(fString, CHR(10), "<BR>")
	        HTMLEncode2 = fString
        end function
set sbkrs=server.CreateObject("adodb.recordset")
sbkrs.open "select * from shop_sbooks where sbkid="&sbkid,conn,1,3
sbkrs("lginusername")=request.cookies("bookshop")("username")
sbkrs("sbkname")=trim(request("sbkname"))
sbkrs("sbktl")=request("sbktl")
sbkrs("sbkzl")=request("sbkzl")
sbkrs("szdq")=request("szdq")
sbkrs("jyfs")=request("jyfs")
sbkrs("xjcd")=trim(request("xjcd"))
sbkrs("sbkcontent")=htmlencode2(trim(request("sbkcontent")))
if not isnumeric(trim(request("sbkprice"))) then
sbkrs("sbkprice")=0
else
sbkrs("sbkprice")=trim(request("sbkprice"))
end if 
sbkrs("tjdate")=now
sbkrs("zjtime")=trim(request("zjtime"))
sbkrs("jsdate")=date
sbkrs("lxname")=trim(request("lxname"))
sbkrs("email")=trim(request("email"))
sbkrs("lxtele")=trim(request("lxtele"))
sbkrs.update
sbkrs.close
set sbkrs=nothing
response.Write "<script language='javascript'>alert('修改完成，确定后查看！');window.location.reload('sbkdisplay.asp')</script>"


        case "save"

function HTMLEncode2(fString)
  fString = Replace(fString, CHR(13), "")
  fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
  fString = Replace(fString, CHR(10), "<BR>")
  HTMLEncode2 = fString
end function

set sbkrs=server.CreateObject("adodb.recordset")
    sbkrs.open "select * from shop_sbooks",conn,1,3

    //将提交的二手信息写入数据库
    sbkrs.addnew
    sbkrs("lginusername")=request.cookies("bookshop")("username")
    sbkrs("sbkname")=trim(request("sbkname"))
    sbkrs("sbktl")=request("sbktl")
    sbkrs("sbkzl")=request("sbkzl")
    sbkrs("szdq")=request("szdq")
    sbkrs("jyfs")=request("jyfs")
    sbkrs("xjcd")=trim(request("xjcd"))
    sbkrs("sbkcontent")=htmlencode2(trim(request("sbkcontent")))
    if not isnumeric(trim(request("sbkprice"))) then
       sbkrs("sbkprice")=0
    else
       sbkrs("sbkprice")=trim(request("sbkprice"))
    end if 
    sbkrs("tjdate")=now
    sbkrs("zjtime")=trim(request("zjtime"))
    sbkrs("jsdate")=date
    sbkrs("lxname")=trim(request("lxname"))
    sbkrs("email")=trim(request("email"))
    sbkrs("lxtele")=trim(request("lxtele"))
    sbkrs.update

    sbkrs.close
set sbkrs=nothing
    response.Write "<script language='javascript'>alert('恭喜您，二手图书信息已提交！');window.location.reload('sbkdisplay.asp')</script>"
end select%>