📄 npost_html.asp
字号:
<!--#include file="../nUser/config.asp"-->
<!--#include file="../nUser/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<%
id=request("id")
Const ForReading = 1
Const Forwriting = 2
Const ForAppending = 8
sql="select * from kheu_nPost where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if not rs.eof then
id=rs("id")
nUser=rs("nUser")
nType=rs("nType")
title=rs("title")
content=rs("content")
nDate=rs("date")
first_flag=rs("first_flag")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>更新所有前台<%=title%>页面</title>
<link href="Css.css" rel="stylesheet">
</head>
<body topmargin="0" leftmargin="0" >
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
<tr>
<td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'">
<div align="center" class="style1">
更新维客百科前台日志HTML页面</div></td>
</tr>
</table>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900">
<tr>
<td><div align="center" class="style1">管理导航：<%=title%>日志</div></td>
</tr>
</table>
<BR><BR>
<table cellspacing="1" cellpadding="3" width="99%" class="table1" bgcolor="#999999" align="CENTER" >
<tr bgcolor="#CCCCCC">
<td height="25" class="title"><b>分类名称（所在目录）（更新数据）</b></td>
<td class="title"><b>更新日期</b></td>
<td class="title"><b>操作提示</b></td>
</tr>
<%
myFolder = "../nPost/"
myFolder = Server.MapPath(myFolder)
Set fileStreamObj = CreateObject("Scripting.FileSystemObject")
If fileStreamObj.FolderExists(myFolder) = False Then
fileStreamObj.CreateFolder (myFolder)
End If
postmb="<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"& vbCrLf
postmb=postmb&"<html xmlns=""http://www.w3.org/1999/xhtml"">"& vbCrLf
postmb=postmb&"<head>"& vbCrLf
postmb=postmb&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"& vbCrLf
postmb=postmb&"<title>"&title&"</title>"& vbCrLf
postmb=postmb&"<STYLE type=text/css>"& vbCrLf
postmb=postmb&"body {margin:10px; MARGINHEIGHT:0; MARGINWIDTH:0;font-family: verdana, Tahoma; font-size: 0.8em;}"& vbCrLf
postmb=postmb&"A { TEXT-DECORATION: none; Color: #333333 }"& vbCrLf
postmb=postmb&"A:hover { TEXT-DECORATION: underline;Color: #000000 }"& vbCrLf
postmb=postmb&"DIV{padding:0px;margin:0px;}"& vbCrLf
postmb=postmb&"ol{padding:0px;margin:0px;}"& vbCrLf
postmb=postmb&".red{color: red; }"& vbCrLf
postmb=postmb&".tdtitle { border-top: 2px solid green;font-weight: bold;background-color: #F4FCF3;TEXT-ALIGN: center;height:16px;margin-bottom :2px;padding:5px 2px 2px 2px; }"& vbCrLf
postmb=postmb&".list {padding:2px 10px 2px 10px;}"& vbCrLf
postmb=postmb&"#logo {position :absolute;left:10px;top:10px;width:120px;height:60px;float :left;}"& vbCrLf
postmb=postmb&"#footer {position :absolute;bottom:5px;left:254px;width:280px;height:15px;z-index:5;}"& vbCrLf
postmb=postmb&"#main {position:absolute; top:90px;left:140px; width:500px; height:280px;}"& vbCrLf
postmb=postmb&"#nav {position :absolute;bottom:90px;right:140px;width:200px;height:80px;}"& vbCrLf
postmb=postmb&"</STYLE>"& vbCrLf
postmb=postmb&"</head>"& vbCrLf
postmb=postmb&"<DIV id=""logo"">"& vbCrLf
postmb=postmb&"<a href=""http://cnc.qinzd.com/"">"
postmb=postmb&"<img src=""../static/logo.gif"" alt="" "&SiteName&" "" width=""120"" height=""38"" border=""0""></a>"
postmb=postmb&"<BR />"& vbCrLf
postmb=postmb&"<a href=""../nUser/index.asp"" >所有博客</a>"
postmb=postmb&"<a href=""../nUser/Login.asp"" >博客登录</a>"& vbCrLf
postmb=postmb&"</DIV>"
postmb=postmb&"<DIV id=""main"">"& vbCrLf
postmb=postmb&"<DIV class=""tdtitle"">"&title&"</DIV><DIV class=""list"">"& vbCrLf
postmb=postmb&content
postmb=postmb&"<BR>添加时间："&nDate
postmb=postmb&"<BR>所属类别："
set rs2=server.createobject("adodb.recordset")
sql="select top 1 * from kheu_nType where id="&nType
rs2.open sql,conn,1,1
if not rs2.eof then
postmb=postmb&"<A href=""../nType/nType_"&rs2("id")&".asp"">"&rs2("title")&"</A>"
end if
postmb=postmb&"<BR>用户操作："
postmb=postmb&"<A href=""../nUser/mPost_Edit.asp?id="&id&" "" >编辑</A> | "
postmb=postmb&"<A href=""../nUser/mPost_Delete.asp?id="&id&" "" >删除</A> | "
postmb=postmb&"<A href=""../nUser/mPost_Add.asp?nType="&nType&" "" >添加</A></DIV>"
postmb=postmb&"<DIV class=""tdtitle"">贡献者简介</DIV><DIV class=""list"">"& vbCrLf
sql="select top 1 * from kheu_nUser where user_id="&nUser
set rs21=server.createobject("ADODB.Recordset")
rs21.open sql,conn,1,1
if not rs21.eof then
postmb=postmb&"<BR>用户名称：<A href=""../nUser/nUser.asp?id="&nUser&" "">"&rs21("user_email")&"</A>"
postmb=postmb&"<BR><BR>"&rs21("user_note")
postmb=postmb&"<BR><BR>能力积分：<span class=red >"&rs21("user_power")&"分</span>"
postmb=postmb&"<BR>交易积分：<span class=red >"&rs21("user_money")&"分</span>"
end if
postmb=postmb&"</DIV></DIV>"
postmb=postmb&"<!--#include file=""../static/down.htm"" -->"
postmb=postmb&"<!--#include file=""../static/link.htm"" -->"
HtmlNLA=postmb
htmfilename="../nPost/nPost_"&id&".asp"
myFile = Server.MapPath(htmfilename)
fileStreamObj.CreateTextFile(myFile)
set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
textStream.Write(HtmlNLA)
textStream.Close()
rs("build_flag")=true
rs.update
%>
<tr>
<td bgcolor="#dddddd"><%=title%> <FONT COLOR="#666666">（<%=nUser%>）</FONT></td>
<td bgcolor="#dddddd" ><%=year(ndate)%>/<%=month(ndate)%>/<%=day(ndate)%></td>
<td bgcolor="#dddddd">
<font color="#0000FF">更新完成</font>
<a href="<%response.write htmfilename%>" target="_blank">
<font color="#FF0000">点击查看生成文件</font></a>
</td>
</tr>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<BR>
<BR>
<TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#999999" ALIGN="CENTER" >
<TR BGCOLOR="#CCCCCC">
<TD HEIGHT="22"
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD>
</TR>
<TR BGCOLOR="#eeeeee">
<TD WIDTH="87" HEIGHT="30"><B>操作说明：</B></TD>
<TD
HEIGHT="30">
<LI>此功能非常消耗服务器资源！请甚用！
</TD>
</TR>
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -