📄 db_con.asp
字号:
if mmid=2 then
response.Write("""")
else
response.Write("'none'")
end if
%>">
<td width="48%">指定<%=Title%>：</td>
<td>
<input name="DB_Code<%=ccid%>" type="text" value="<%=EMarking%>" size="50" <%=readonly%>>
</td>
</tr>
</table>
<%
end sub
sub joekoe_chk_mInput()
dim temp_type,DataPath
Temp_Type=Trim(request.QueryString("Type"))
if chk() then
if Temp_Type="1" then
DataPath=request.Form("DataPath")
call CData1(DataPath)
session("DBUG")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &DataPath
dim Conn_Temp,Connstr_Temp
call form_first()
call admin_table(1)
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function checkdeletetion(){
if (!confirm("你确定要删除选中的模块么？") == false )
document.forms.form1.submit();
}
-->
</script>
<form name="form1" method="post" action="?action=mInput&type=2">
<input type=hidden name=chk value='yes'>
<TR align=center>
<TD width="5%" class=td>编号</TD>
<TD width="20%" class=td>模块名称</TD>
<TD width="15%" class=td>采集目标</TD>
<TD width="15%" class=td>创建日期</TD>
<TD width="3%" class=td>图</TD>
<TD width="3%" class=td>动</TD>
<TD width="3%" class=td>音</TD>
<TD width="3%" class=td>其</TD>
<TD width="15%" class=td>采集多页</TD>
<TD width="3%" class=td><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></TD>
</TR>
<%
dim sum
sum=0
Set Conn_Temp = Server.CreateObject("ADODB.Connection")
Conn_Temp.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &DataPath
sql="select * from [DB_Item] where nsort='"&index_url&"' "
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn_Temp,1,1
do while not rs.eof
sum=sum+1
%>
<TR>
<TD><%=sum%></TD>
<TD><%=rs("ItemName")%></TD>
<TD>
<%
response.Write("<A href="""&rs("FromUrl")&""" target=""_blank"">"&rs("FromName")&"</a>")
%>
</TD>
<TD><%=rs("ItemTime")%></TD>
<TD>
<%
if rs("PicValue")=0 then
response.Write("假")
else
response.Write("真")
end if
%>
</TD>
<TD>
<%
if rs("FalshValue")=0 then
response.Write("假")
else
response.Write("真")
end if
%>
</TD>
<TD>
<%
if rs("MusicValue")=0 then
response.Write("假")
else
response.Write("真")
end if
%>
</TD>
<TD>
<%
if rs("OtherValue")=0 then
response.Write("假")
else
response.Write("真")
end if
%>
</TD>
<TD>
<%
if not rs("ManyPage") then
response.Write("假")
else
response.Write("真")
end if
%>
</TD>
<td><input type=checkbox name=sel_id value='<%response.write rs("id")%>'></td>
</TR>
<%rs.movenext
loop
%>
<tr class=tr1>
<td colspan=10 align=center>
<INPUT onclick="checkdeletetion();" type=button value= 删除模块设置 name=button> <input name="button" type="submit" id="button" value="导入模块设置">
</td>
</tr>
</form>
</TABLE>
<%
elseif Temp_Type="2" then
dim button,catch_data,Temp_arr
button=request.Form("button")
catch_data=isform(request.Form("sel_id"),"","选项")
Set Conn_Temp = Server.CreateObject("ADODB.Connection")
Conn_Temp.Open session("DBUG")
Temp_arr=array(1,2,3,4,5,6,7,8,9,11,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
if button<>"导入模块设置" then
sql="delete from [DB_Item] where id in("&catch_data&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn_Temp,1,3
sql="delete from [DB_Dome] where Itemid in("&catch_data&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn_Temp,1,3
response.Redirect("?action=mInput&type=1")
else
dim rs_Temp,rs_Temp1,Id_Temp
sql="select * from [DB_Item] where id in("&catch_data&") and nsort='"&index_url&"' "
Set rs_Temp= Server.CreateObject("ADODB.Recordset")
rs_Temp.open sql,Conn_Temp,1,1
if rs_Temp.eof then
call admin_msg(tit_fir&"ID不存在！","?action=mInput&type=1",1)
exit sub
else
do while not rs_Temp.eof
Id=rs_Temp(0)
sql="select * from [DB_Item]"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,2,3
rs.addnew
for i=0 to rs_Temp.Fields.count-1
select case i
case 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
rs(rs_Temp.Fields(i).name)=rs_Temp(i)
end select
next
rs.update
sql="select top 1 id from [DB_Item] order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,1
if not rs.eof then
Id_Temp=rs(0)
end if
sql="select * from [DB_Dome] where ItemID="&Id&""
Set rs_Temp1= Server.CreateObject("ADODB.Recordset")
rs_Temp1.open sql,Conn_Temp,1,1
if rs_Temp1.eof then
response.Write("导入失败！您的 "&rs_Temp(1)&" 模块设置设置不对！")
sql="select * from [DB_Item] where id="&Id_Temp&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn_Temp,2,3
if not rs.eof then
rs.delete
rs.update
end if
response.End()
else
do while not rs_Temp1.eof
sql="select * from [DB_Dome]"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,2,3
rs.addnew
for i=0 to rs_Temp1.Fields.count-1
select case i
case 2,3,4,5,6,7,8,9,10,11,12
rs(rs_Temp1.Fields(i).name)=rs_Temp1(i)
case 1
rs(rs_Temp1.Fields(i).name)=Id_Temp
end select
next
rs.update
rs_Temp1.movenext
loop
end if
call admin_msg(rs_Temp(1)&"模块设置导入成功！","?action=mInput",1)
exit sub
rs_Temp.movenext
loop
call admin_msg("导入完成，请对导入的模块进行详细设置，后在使用！","?action=mInput",1)
exit sub
end if
end if
end if
exit sub
end if
call admin_table(1)
call admin_td("导入模块")
call form_first()
%>
<form name="form1" method="post" action="?action=mInput&type=1">
<input type=hidden name=chk value='yes'>
<TR>
<TD colspan=2 height=50 align=center>
模块数据库地址：
<input name="DataPath" type="text" id="DataPath" value="data/joekoe_data.asp">
</TD>
</TR>
<TR>
<td></td>
<TD align=right><input type="submit" name="Submit" value="下一步"></TD>
</TR>
</TABLE>
</form>
<%
end sub
sub joekoe_chk_mExport()
dim dome_id,datapath,rs_Temp,Id_Temp
Dome_Id=request.Form("Dome_Id")
DataPath=request.Form("DataPath")
if chk() then
call CData1(DataPath)
dim Conn_Temp,Connstr_Temp
Set Conn_Temp = Server.CreateObject("ADODB.Connection")
Connstr_Temp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &DataPath
Conn_Temp.Open Connstr_Temp
DataPath=request.Form("DataPath")
sql="select * from [DB_Item] where id="&dome_id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
else
sql="select * from [DB_Item]"
Set rs_Temp= Server.CreateObject("ADODB.Recordset")
rs_Temp.open sql,Conn_Temp,2,3
rs_Temp.addnew
for i=0 to rs.Fields.count-1
select case i
case 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
rs_Temp(rs.Fields(i).name)=rs(i)
end select
next
rs_Temp.update
Id_Temp=rs_Temp(0)
sql="select * from [DB_Dome] where ItemID="&dome_id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.Write("导出失败！您的模块设置设置不对！")
sql="select * from [DB_Item] where id="&Id_Temp&""
Set rs_Temp= Server.CreateObject("ADODB.Recordset")
rs_Temp.open sql,Conn_Temp,2,3
if not rs_Temp.eof then
rs_Temp.delete
rs_Temp.update
end if
response.End()
else
do while not rs.eof
sql="select * from [DB_Dome]"
Set rs_Temp= Server.CreateObject("ADODB.Recordset")
rs_Temp.open sql,Conn_Temp,2,3
rs_Temp.addnew
for i=0 to rs.Fields.count-1
select case i
case 2,3,4,5,6,7,8,9,10,11,12
rs_Temp(rs.Fields(i).name)=rs(i)
case 1
rs_Temp(rs.Fields(i).name)=Id_Temp
end select
next
rs_Temp.update
rs.movenext
loop
end if
response.Write("<br>")
response.Write(" 模块设置导出成功！")
response.Write("<br>")
response.Write(" 模块路径："&DataPath)
call admin_msg(tit_fir&"导出成功！\n\n模块数据库名称："&DataPath,"?action=mExport",1)
exit sub
end if
end if
call admin_td("导出模块")
call form_first()
%>
<form name="form1" method="post" action="?action=mExport">
<input type=hidden name=chk value='yes'>
<TR>
<TD colspan=2 height=50>
<TABLE width="100%" border="0" align="center" cellpadding="2" cellspacing="3">
<TR align=center>
<td>选择模块名称：<select name="Dome_Id" id="Dome_Id">
<%
sql="select * from [DB_Item]"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
response.Write("<option value="&rs("id")&">"&rs("ItemName")&"</option>")
rs.movenext
loop
%>
</select></td>
<td>模块数据库地址：
<input name="DataPath" type="text" id="DataPath" value="data/joekoe_data.asp">
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<td></td>
<TD align=right><input type="submit" name="Submit" value="确定导出"></TD>
</TR>
</form>
</TABLE>
<%
end sub
Function CData1(dbPath)
On Error Resume Next
dbPath = server.mappath(dbPath)
if Err Then
Response.Write("<script language='JavaScript'>alert('数据库路径不正确！请仔细检查路径！');history.go(-1);</script>")
err.Clear
exit function
End If
dim conn0,connstr0
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set fso = Nothing
On Error Resume Next
connstr0="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
Set conn0=Server.CreateObject("ADODB.CONNECTION")
conn0.open connstr0
conn0.close
set conn0=nothing
if Err Then
Response.Write("<script language='JavaScript'>alert('提供的数据库，格式不对！');history.go(-1);</script>")
err.Clear
End If
Else
Response.Write("<script language='JavaScript'>alert('数据库路径不正确！请仔细检查路径！');history.go(-1);</script>")
End If
fso.close
set fso=nothing
End Function
function module_menu()
%>
<tr><td colspan=2>
<TABLE width="100%" border=0 align=center cellPadding=4 bgColor=#ffffff>
<TBODY>
<TR>
<TD>·栏目模块设置</TD>
<TD align="right"><A href="?">模块列表</A>
<a href="?action=add&id=<%=id%>&jk_mod=edit" <% if action="add" then response.write "class=red" %>>模块基本设置</A>
<a href="?action=add1&id=<%=id%>&jk_mod=edit" <% if action="add1" then response.write "class=red" %>>采集<%response.write tit_fir%>列表</a>
<A href="?action=add2&id=<%=id%>&jk_mod=edit" <% if action="add2" then response.write "class=red" %>>采集<%response.write tit_fir%>联接</A>
<A href="?action=add3&id=<%=id%>&jk_mod=edit" <% if action="add3" then response.write "class=red" %>>采集<%response.write tit_fir%>正文内容</A>
高级过滤条件
<a href="?action=ok_test&jk_mod=edit&id=<%=id%>">测试</a></TD>
</TR>
</TBODY>
</TABLE>
</td></tr>
<%
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -