?? admin_news.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<!--#include file="../include/check_session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<title>發(fā)布新聞</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("newspic")
if aa <> "" then
ss=obj.SaveFiletodb("newspic")
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 "news",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("title") = obj.Request("title")
.Fields("content") = obj.Request("content")
.Fields("type_id") = obj.Request("type")
.Fields("pic_type") = aa
if ss <> "no pic uploaded!" then
.Fields("pic").AppendChunk obj.DBContent
end if
.Update
end with
Response.Redirect("insert_news.asp")
end if
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -