?? admin_trade_info.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<title>發布新聞</title>
</head>
<body>
<%
dim id,obj,ss,aa
Set obj = Server.CreateObject("LyfUpload.UploadFile")
if not IsObject(obj) then
Response.Write "LyfUpload control not installed !"
Response.End
end if
aa=obj.filetype("trade_pic")
if aa <> "" then
ss=obj.SaveFiletodb("trade_pic")
else
ss = "no pic uploaded!"
end if
if ss= "" then
Response.Write "<center>圖片上傳失敗!<br><br><a href='history.back()'>返 回</a></center>"
else
with session("rs")
.Open "trade_info",session("conn"),adOpenDynamic,adLockOptimistic,adCmdTableDirect
if obj.Request("action") = "insert" then
.AddNew
else
if obj.Request("action") = "edit" then
.find "id = " & obj.Request("id")
end if
end if
.Fields("type_id") = obj.Request("type")
.Fields("publisher") = obj.Request("publisher")
.Fields("title") = trim(obj.Request("title"))
.Fields("content") = trim(obj.Request("content"))
.Fields("useful_life") = trim(obj.Request("useful_life"))
.Fields("region") = trim(obj.Request("region"))
.Fields("contact") = trim(obj.Request("contact"))
.Fields("phone") = trim(obj.Request("phone"))
.Fields("fax") = trim(obj.Request("fax"))
.Fields("email") = trim(obj.Request("email"))
.Fields("pic_type") = aa
if ss <> "no pic uploaded!" then
.Fields("pic").AppendChunk obj.DBContent
end if
.Update
end with
Response.Redirect("pub_trade_info.asp")
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -