📄 admin_itemdatabase.asp
字号:
RsLead.Update
RsLead.Close
Set RsLead=Nothing
RsF.MoveNext
Loop
End If
RsF.Close
Set RsF=Nothing
RsItem.MoveNext
Loop
End If
RsItem.Close
Set RsItem=Nothing
End If
ConnLead.close
set connlead=nothing
End If
If FoundErr<>True Then
ErrMsg="<br>数据导出成功"
ErrMsg=ErrMsg & "<br>数据导出为：" & LeadOutMdb
Call WriteSucced(ErrMsg)
Else
Call WriteErrMsg(ErrMsg)
End If
End Sub
Sub ShowLeadInData
Dim LeadInMdb,connstrLead,connLead,RsLead,SqlLead
LeadInMdb=Trim(Request("LeadInMdb"))
If LeadInMdb="" Then
FoundErr=True
ErrMsg="<br><li>数据库地址不能为空！</li>"
End If
If FoundErr<>True Then
On error resume next
Set connLead = Server.CreateObject("ADODB.Connection")
connstrLead="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LeadInMdb)
connLead.Open connstrLead
If Err Then
err.Clear
FoundErr=True
ErrMsg=ErrMsg & "<br><li>数据库连接出错，请确认数据库是否存在。</li>"
End If
If FoundErr<>True Then
Set RsLead=server.createobject("adodb.recordset")
SqlLead="select ItemID,ItemName,ChannelID,ClassID,SpecialID,Flag from Item order by ItemID DESC"
RsLead.open SqlLead,ConnLead,1,1
If Not RsLead.Eof then
%>
<br>
<form method="post" action="Admin_ItemDatabase.asp?Action=LeadInData">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td colspan="2" align="center" class="title" height=22><b>项目导入</b></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="5%" height="22" align="center" class=ButtonList>选择</td>
<td width="10%" align="center" class=ButtonList>项目名称</td>
<td width="10%" height="22" align="center" class=ButtonList>所属频道</td>
<td width="10%" height="22" align="center" class=ButtonList>所属栏目</td>
<td width="10%" align="center" class=ButtonList>所属专题</td>
<td width="5%" align="center" class=ButtonList>状态</td>
</tr>
<%
Do While Not RsLead.Eof
%>
<tr class="tdbg">
<td width="5%" height="22" align="center"><input type="checkbox" value=<%=RsLead("ItemID")%> name="ItemID" onclick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;"></td>
<td width="10%" align="left"><%=RsLead("ItemName")%></td>
<td width="10%" height="22" align="center"><%Call Admin_ShowChannel_Name(RsLead("ChannelID"))%></td>
<td width="10%" height="22" align="center"><%Call Admin_ShowClass_Name(RsLead("ChannelID"),RsLead("ClassID"))%></td>
<td width="10%" align="center"><%Call Admin_ShowSpecial_Name(RsLead("ChannelID"),RsLead("SpecialID"))%></td>
<td width="5%" align="center">
<%If RsLead("Flag")=True Then
Response.write "√"
Else
Response.Write "<font color=red>×</font>"
End If%>
</td>
</tr>
<%
RsLead.MoveNext
Loop
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td align="center">
<input name="LeadInMdb" type="hidden" value="<%=LeadInMdb%>">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" >全选
<input name="step" type="hidden" value="1">
<input name="submit" type=submit value=" 确 定 " style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</table>
</form>
<%
Else
FoundErr=True
Errmsg=ErrMsg & "<br>无任何记录！"
End If
RsLead.Close
Set RsLead=Nothing
End If
connLead.close
set connlead=nothing
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
End If
End Sub
Sub LeadInData()
Dim LeadInMdb,ItemMdb,ItemMdbPath
ItemMdb=DbItem
LeadInMdb=trim(request.form("LeadInMdb"))
ItemID=trim(request.form("ItemID"))
If LeadInMdb="" Then
FoundErr=True
ErrMsg="<br><li>数据库地址不能为空！</li>"
End If
If ItemID="" Then
FoundErr=True
ErrMsg= ErrMsg & "<br><li>请选择项目！</li>"
Else
ItemID=Replace(ItemID," ","")
End If
If FoundErr<>True Then
dim connstrLead,connLead,RsLead,SqlLead,RsF,SqlF,ItemIDTemp
Set connLead = Server.CreateObject("ADODB.Connection")
connstrLead="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LeadInMdb)
connLead.Open connstrLead
If Err Then
err.Clear
ConnLead.Close
Set ConnLead = Nothing
FoundErr=True
ErrMsg= ErrMsg & "<br><li>数据库连接出错，请确认数据库是否存在。</li>"
End If
If FoundErr<>True Then
Set RsLead=server.createobject("adodb.recordset")
SqlLead="select * from Item where ItemID in(" & ItemID & ") order by ItemID ASC"
RsLead.open SqlLead,ConnLead,1,1
If Not RsLead.Eof then
Do While Not RsLead.Eof
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select top 1 * from Item"
RsItem.open SqlItem,ConnItem,1,3
RsItem.AddNew
RsItem("ItemName")=RsLead("ItemName")
RsItem("ChannelID")=RsLead("ChannelID")
RsItem("ChannelDir")=RsLead("ChannelDir")
RsItem("ClassID")=RsLead("ClassID")
RsItem("SpecialID")=RsLead("SpecialID")
RsItem("WebName")=RsLead("WebName")
RsItem("WebUrl")=RsLead("WebUrl")
RsItem("ItemDemo")=RsLead("ItemDemo")
RsItem("LoginType")=RsLead("LoginType")
RsItem("LoginUrl")=RsLead("LoginUrl")
RsItem("LoginPostUrl")=RsLead("LoginPostUrl")
RsItem("LoginUser")=RsLead("LoginUser")
RsItem("LoginPass")=RsLead("LoginPass")
RsItem("LoginFalse")=RsLead("LoginFalse")
RsItem("ListStr")=RsLead("ListStr")
RsItem("LsString")=RsLead("LsString")
RsItem("LoString")=RsLead("LoString")
RsItem("ListPaingType")=RsLead("ListPaingType")
RsItem("LPsString")=RsLead("LPsString")
RsItem("LPoString")=RsLead("LPoString")
RsItem("ListPaingStr1")=RsLead("ListPaingStr1")
RsItem("ListPaingStr2")=RsLead("ListPaingStr2")
RsItem("ListPaingID1")=RsLead("ListPaingID1")
RsItem("ListPaingID2")=RsLead("ListPaingID2")
RsItem("ListPaingStr3")=RsLead("ListPaingStr3")
RsItem("HsString")=RsLead("HsString")
RsItem("HoString")=RsLead("HoString")
RsItem("HttpUrlType")=RsLead("HttpUrlType")
RsItem("HttpUrlStr")=RsLead("HttpUrlStr")
RsItem("TsString")=RsLead("TsString")
RsItem("ToString")=RsLead("ToString")
RsItem("CsString")=RsLead("CsString")
RsItem("CoString")=RsLead("CoString")
RsItem("DateType")=RsLead("DateType")
RsItem("DsString")=RsLead("DsString")
RsItem("DoString")=RsLead("DoString")
RsItem("AuthorType")=RsLead("AuthorType")
RsItem("AsString")=RsLead("AsString")
RsItem("AoString")=RsLead("AoString")
RsItem("AuthorStr")=RsLead("AuthorStr")
RsItem("CopyFromType")=RsLead("CopyFromType")
RsItem("FsString")=RsLead("FsString")
RsItem("FoString")=RsLead("FoString")
RsItem("CopyFromStr")=RsLead("CopyFromStr")
RsItem("KeyType")=RsLead("KeyType")
RsItem("KsString")=RsLead("KsString")
RsItem("KoString")=RsLead("KoString")
RsItem("KeyStr")=RsLead("KeyStr")
RsItem("NewsPaingType")=RsLead("NewsPaingType")
RsItem("NPsString")=RsLead("NPsString")
RsItem("NPoString")=RsLead("NPoString")
RsItem("NewsPaingStr")=RsLead("NewsPaingStr")
RsItem("NewsPaingHtml")=RsLead("NewsPaingHtml")
RsItem("PaginationType")=RsLead("PaginationType")
RsItem("MaxCharPerPage")=RsLead("MaxCharPerPage")
RsItem("ReadLevel")=RsLead("ReadLevel")
RsItem("Stars")=RsLead("Stars")
RsItem("ReadPoint")=RsLead("ReadPoint")
RsItem("Hits")=RsLead("Hits")
RsItem("UpDateType")=RsLead("UpDateType")
RsItem("UpDateTime")=RsLead("UpDateTime")
RsItem("IncludePicYn")=RsLead("IncludePicYn")
RsItem("DefaultPicYn")=RsLead("DefaultPicYn")
RsItem("OnTop")=RsLead("OnTop")
RsItem("Elite")=RsLead("Elite")
RsItem("Hot")=RsLead("Hot")
RsItem("SkinID")=RsLead("SkinID")
RsItem("TemplateID")=RsLead("TemplateID")
RsItem("Script_Iframe")=RsLead("Script_Iframe")
RsItem("Script_Object")=RsLead("Script_Object")
RsItem("Script_Script")=RsLead("Script_Script")
RsItem("Script_Div")=RsLead("Script_Div")
RsItem("Script_Class")=RsLead("Script_Class")
RsItem("Script_Span")=RsLead("Script_Span")
RsItem("Script_Img")=RsLead("Script_Img")
RsItem("Script_Font")=RsLead("Script_Font")
RsItem("Script_A")=RsLead("Script_A")
RsItem("Script_Html")=RsLead("Script_Html")
RsItem("CollecListNum")=RsLead("CollecListNum")
RsItem("CollecNewsNum")=RsLead("CollecNewsNum")
RsItem("Passed")=RsLead("Passed")
If ObjInstalled=True Then
RsItem("SaveFiles")=RsLead("SaveFiles")
Else
RsItem("SaveFiles")=False
End If
RsItem("CollecOrder")=RsLead("CollecOrder")
RsItem("LinkUrlYn")=RsLead("LinkUrlYn")
RsItem("InputerType")=RsLead("InputerType")
RsItem("Inputer")=RsLead("Inputer")
RsItem("EditorType")=RsLead("EditorType")
RsItem("Editor")=RsLead("Editor")
RsItem("ShowCommentLink")=RsLead("ShowCommentLink")
RsItem("Script_Table")=RsLead("Script_Table")
RsItem("Script_Tr")=RsLead("Script_Tr")
RsItem("Script_Td")=RsLead("Script_Td")
RsItem("Flag")=False
ItemIDTemp=RsItem("ItemID")
RsItem.Update
RsItem.close
set rsItem=nothing
'过滤信息
Set RsF=server.createobject("adodb.recordset")
SqlF="select * from Filters Where ItemID=" & RsLead("ItemID") & " order by FilterID ASC"
RsF.open SqlF,ConnLead,1,1
If Not RsF.Eof then
Do While Not RsF.Eof
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select top 1 * from Filters"
RsItem.open SqlItem,ConnItem,1,3
RsItem.AddNew
RsItem("ItemID")=ItemIDTemp
RsItem("FilterName")=RsF("FilterName")
RsItem("FilterObject")=RsF("FilterObject")
RsItem("FilterType")=RsF("FilterType")
RsItem("FilterContent")=RsF("FilterContent")
RsItem("FisString")=RsF("FisString")
RsItem("FioString")=RsF("FioString")
RsItem("FilterRep")=RsF("FilterRep")
RsItem("Flag")=RsF("Flag")
RsItem("PublicTf")=RsF("PublicTf")
RsItem.Update
RsItem.Close
Set RsItem=Nothing
RsF.MoveNext
Loop
End If
RsF.Close
Set RsF=Nothing
RsLead.MoveNext
Loop
Else
FoundErr=True
ErrMsg=ErrMsg & "<br>无任何记录！"
End If
RsLead.Close
Set RsLead=Nothing
End If
connlead.close
set connlead=nothing
End If
If FoundErr<>True Then
ErrMsg="<br>数据导入成功"
ErrMsg=ErrMsg & "<br>请使用 检查更新数据 功能更新导入的数据"
Call WriteSucced(ErrMsg)
Else
Call WriteErrMsg(ErrMsg)
End If
End Sub
Sub UpData()
'要更新的内容：
'频道目录
'保存图片
'
'频道数据（还少了专题）
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -