📄 admin_enter.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>发布新闻</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("enter_pic")
if aa <> "" then
ss=obj.SaveFiletodb("enter_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 "enterprise",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("member_id") = obj.Request("member_id")
.Fields("name") = obj.Request("name")
.Fields("type_id") = obj.Request("type")
.Fields("corporation") = obj.Request("corporation")
.Fields("address") = obj.Request("address")
.Fields("homepage") = obj.Request("homepage")
.Fields("main_business") = obj.Request("main_business")
.Fields("intro") = obj.Request("intro")
.Fields("pic_type") = aa
if ss <> "no pic uploaded!" then
.Fields("pic").AppendChunk obj.DBContent
end if
.Update
end with
end if
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("企业注册成功!")
window.open("../index/index.asp","_self");
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -