?? savejiangpin.asp
字號:
<!--#include file="conn.asp"-->
<%if session("bjxadmin")="" then
response.Write "<script language='javascript'>alert('網絡超時或您還沒有登陸!');window.location.href='login.asp';</script>"
response.End
end if
if request("bookname")="" or request("shichangjia")="" or request("jifen")="" then
response.Write "對不起,添加失敗,請用正確的方式添加獎品!"
response.End
end if
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
dim bookdate,dazhe
'dazhe=round(request("huiyuanjia")/request("shichangjia"),2)
'if request("bookdateyear")<>"" then
'bookdate=trim(request("bookdateyear"))&"年"&trim(request("bookdatemonth"))&"月"
'else
'bookdate=""
'end if
dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BJX_jiangpin",conn,1,3
rs.AddNew
rs("bookname")=trim(request("bookname")) '商品名稱
rs("guige")=trim(request("guige")) '商品規格
rs("shichangjia")=trim(request("shichangjia")) '市場價
rs("jifen")=trim(request("jifen")) '積分
rs("bookpic")=trim(request("bookpic")) '小圖片地址
rs("bookpic2")=trim(request("bookpic2")) '大圖片地址
rs("bookcontent")=htmlencode2(trim(request("bookcontent"))) '簡介
rs("adddate")=now() '加入日期
if request("xianshi")=1 then '推薦
rs("xianshi")=1
else
rs("xianshi")=0
end if
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('添加成功!');window.location.href='addjiangpin.asp';</script>"
response.End
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BJX_jiangpin where bookid="&bookid,conn,1,3
rs("bookname")=trim(request("bookname")) '商品名稱
rs("guige")=trim(request("guige")) '商品規格
rs("shichangjia")=trim(request("shichangjia")) '市場價
rs("jifen")=trim(request("jifen")) '積分
rs("bookpic")=trim(request("bookpic")) '小圖片地址
rs("bookpic2")=trim(request("bookpic2")) '大圖片地址
rs("bookcontent")=htmlencode2(trim(request("bookcontent"))) '簡介
rs("adddate")=bookdate '加入日期
if request("xianshi")=1 then '推薦
rs("xianshi")=1
else
rs("xianshi")=0
end if
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功!');history.go(-1);</script>"
response.End
end select
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -