📄 sitefourstep.asp
字号:
<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<!--#include file="inc/Function.asp" -->
<%
Dim DBC,CollectConn,Conn
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>
<%
'判断权限结束
Dim RsEditObj,EditSql,SiteID
Dim LinkHeadSetting,LinkFootSetting,SiteUrl
Dim ObjUrl,ListHeadSetting,ListFootSetting,NewsLinkStr
Set RsEditObj = Server.CreateObject ("ADODB.RecordSet")
SiteID = Request("SiteID")
if SiteID <> "" then
EditSql="Select * from Site where ID=" & SiteID
RsEditObj.Open EditSql,CollectConn,1,3
if RsEditObj.Eof then
Response.write("没有修改的站点")
else
ObjUrl = RsEditObj("ObjUrl")
ListHeadSetting = RsEditObj("ListHeadSetting")
ListFootSetting = RsEditObj("ListFootSetting")
SiteUrl = RsEditObj("SiteUrl")
end if
else
Response.write("没有修改的站点")
end if
LinkHeadSetting = Request.Form("LinkHeadSetting")
LinkFootSetting = Request.Form("LinkFootSetting")
if Request.Form("Result") = "Edit" then
Dim RsAddObj,sql
Set RsAddObj = Server.CreateObject ("ADODB.RecordSet")
Sql = "select * from Site where id=" & Request.Form("SiteID")
RsAddObj.Open Sql,CollectConn,1,3
RsAddObj("LinkHeadSetting") = LinkHeadSetting
RsAddObj("LinkFootSetting") = LinkFootSetting
RsAddObj.update
RsAddObj.close
Set RsAddObj = Nothing
end if
Dim ResponseAllStr,NewsListStr
ResponseAllStr = GetPageContent(ObjURL)
NewsListStr = GetContent(ResponseAllStr,ListHeadSetting,ListFootSetting,0)
NewsLinkStr = FormatUrl(GetContent(NewsListStr,LinkHeadSetting,LinkFootSetting,0),SiteUrl)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动新闻采集—站点设置</title>
</head>
<link href="Inc/Collect.css" rel="stylesheet">
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="SiteFiveStep.asp">
<tr bgcolor="#E4E4E4">
<td height="30" colspan="4" background="images/Collect_bg.gif"><font color="#FF0000"><strong>站点属性修改---第四步</strong></font></td>
</tr>
<tr bgcolor="#FAF0ED">
<td width="20%">
<div align="right">
<input name="SiteID" type="hidden" id="SiteID2" value="<% = SiteID %>">
<input name="Result" type="hidden" id="Result2" value="Edit">
<input type="hidden" name="NewsLinkStr" value="<% = NewsLinkStr %>">
标题开始字符</div></td>
<td colspan="3"> <textarea name="PageTitleHeadSetting" cols="50" rows="6" id="textarea4" style="width:100%;"><%=RsEditObj("PageTitleHeadSetting")%></textarea></td>
</tr>
<tr bgcolor="#FAF0ED">
<td> <div align="right">标题结束字符</div></td>
<td colspan="3"> <textarea name="PageTitleFootSetting" cols="50" rows="6" id="textarea5" style="width:100%;"><%=RsEditObj("PageTitleFootSetting")%></textarea></td>
</tr>
<tr bgcolor="#FAF0ED">
<td> <div align="right">内容开始字符</div></td>
<td colspan="3"> <textarea name="PagebodyHeadSetting" cols="50" rows="6" id="textarea4" style="width:100%;"><%=RsEditObj("PagebodyHeadSetting")%></textarea></td>
</tr>
<tr bgcolor="#FAF0ED">
<td> <div align="right">内容结束字符</div></td>
<td colspan="3"> <textarea name="PagebodyFootSetting" cols="50" rows="6" id="textarea5" style="width:100%;"><%=RsEditObj("PagebodyFootSetting")%></textarea></td>
</tr>
<tr bgcolor="#FAF0ED">
<td height="50" colspan="4"> <div align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FAF0ED">
<td width="30%">
<div align="center">
<input type="button" onClick="window.location.href='javascript:history.go(-1)'" name="Submit32" value="上 一 步">
</div></td>
<td><div align="center">
<input type="reset" name="Submit2" value=" 重 填 ">
</div></td>
<td width="30%">
<div align="center">
<input type="submit" name="Submit3" value="下 一 步">
</div></td>
</tr>
</table>
</div></td>
</tr>
</form>
<tr bgcolor="#FAF0ED">
<td colspan="4" bgcolor="#FAF0ED"><a href="<% = NewsLinkStr %>" target="_blank"><% = NewsLinkStr %></a></td>
</tr>
</table>
</body>
</html>
<%
Set RsEditObj = Nothing
Set CollectConn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -