📄 db_con.asp
字号:
rs.open sql,conn,2,3
rs("Addresslist")=Addresslist
rs("Addresslist1")=Addresslist1
rs("Addresslist2")=Addresslist2
rs.update
rs.close
call admin_msg("已成功进行"&tit_fir&"第三步操作！","?action=add3&jk_mod="&jk_mod&"&id="&id,1)
exit sub
end if
end if
call form_first()
if jk_mod="edit" then
call module_menu()
end if
if submit="测试" then
%>
<tr>
<td colspan=2>
<%
dim webstr
webstr=Cls.BytesToBstr(Cls.getHTTPPage(FromUrl),"GB2312")
webstr=Cls.stripHTML(webstr,Articlelist1,Articlelist2)
webstr=Cls.SeparateHTML(webstr,Addresslist1,Addresslist2)
webstr=Cls.HttpUrls(Addresslist&webstr,FromUrl)
response.Write("<a href="&webstr&" target=""_blank"">"&webstr&"</a>")
%>
</td>
</tr>
<%end if%>
<form name=add_frm action='?action=add2&id=<%=id%>&jk_mod=<%=jk_mod%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td><%response.write tit_fir%>列表地址标记开始代码：</td>
<td><TEXTAREA name="Addresslist1" cols="60" rows="8" id="Addresslist1"><%=Addresslist1%></TEXTAREA></td>
</tr>
<tr>
<td><%response.write tit_fir%>列表标记地址结束代码：</td>
<td><TEXTAREA name="Addresslist2" cols="60" rows="8" id="Addresslist2"><%=Addresslist2%></TEXTAREA></td>
</tr>
<tr>
<td><%response.write tit_fir%>列表标记地址添加代码：</td>
<td><input name="Addresslist" type="text" id="Addresslist" value="<%=Addresslist%>" size="60"></td>
</tr>
<tr>
<td></td>
<td height=30><INPUT name="Submit" type="submit" id="Submit" value="测试"> <INPUT type="submit" name="Submit2" value="保存"></td>
</tr></form>
</table>
<%
end sub
sub joekoe_chk_add3()
Dim MarkingA,MarkingB,Marking,dome_id
ID=Isform(request.QueryString("id"),"数字","数据传递")
Dome_ID=request.Form("Dome_ID")
Dome_ID=Split(Dome_ID,",")
'response.write ubound(Dome_ID)
'response.end
Dim DB_Nows()
Redim DB_Nows(ubound(Dome_ID))
for i=0 to ubound(Dome_ID)
DB_Nows(i)=request.Form("nows"&(i+1))
if request.Form("ColumnY"&(i+1))="y" then
if trim(request.Form("DB_CodeA"&(i+1)))="" or trim(request.Form("DB_CodeB"&(i+1)))="" then
Response.Write("<script language='JavaScript'>alert('第["&i+1&"]组定义标签，不可以为空！');history.go(-1);</script>")
response.End()
end if
end if
next
call admin_td(a_e&tit_fir&"第四步")
if chk() then
dim ii
for i=0 to ubound(Dome_ID)
sql="select * from [DB_Dome] where id="&Dome_ID(i)&""
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,2,3
ii=i+1
rs("MID")=request.Form("nows"&ii)
rs("MarkingA")=request.Form("DB_CodeA"&ii)
rs("MarkingB")=request.Form("DB_CodeB"&ii)
rs("Marking")=request.Form("DB_Code"&ii)
rs.update
rs.close
next
call admin_msg("采集设置成功 \n 确定进行测试...","?action=ok_test&jk_mod="&jk_mod&"&id="&id,1)
exit sub
end if
call form_first()
if jk_mod="edit" then
call module_menu()
end if
%>
<SCRIPT language=javascript1.2>
function showsubmenu(sid,isa)
{
if (isa.value== 0)
{
eval("DBS" + sid + ".style.display=\"none\";");
eval("DB" + sid + ".style.display=\"none\";");
}else{
if (isa.value== 1)
{
eval("DBS" + sid + ".style.display=\"\";");
eval("DB" + sid + ".style.display=\"none\";");
}else{
eval("DB" + sid + ".style.display=\"\";");
eval("DBS" + sid + ".style.display=\"none\";");
}
}
}
</SCRIPT>
<form name=add_frm action='?action=add3&jk_mod=<%=jk_mod%>&id=<%=id%>' method=post>
<input type=hidden name=chk value='yes'>
<TR>
<TD colspan=2>
<%
dim ColumnID,ColumnCName,ColumnEName,MMID,ColumnY
sql="select * from [DB_Dome] where ItemID="&ID
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,2
do while not rs.eof
MMID=rs("MID")
Columnid=rs("Columnid")
ColumnCName=rs("ColumnCName")
ColumnEName=rs("ColumnEName")
EMarkingA=trim(rs("MarkingA")&" ")
EMarkingB=trim(rs("MarkingB")&" ")
EMarking=trim(rs("Marking")&" ")
ColumnY=(rs("ColumnY"))
call ArticleTitle(Columnid,ColumnCName&"-"&ColumnEName,MMID,rs("id"),"",ColumnY)
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td height=30 colspan=2><INPUT name="Submit" type="submit" id="Submit" value="保存/下一步"></td>
</tr></form>
</table>
<%
end sub
sub joekoe_chk_ok_test()
dim FromUrl,ManyPage,Articlelist1,Articlelist2,Addresslist1,Addresslist2,Addresslist
ID=Isform(request.QueryString("id"),"数字","数据传递")
sql="select * from [DB_Item] where id="&id
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,1
if rs.eof then
Response.Write("<script language='JavaScript'>alert('数据传递出错！');history.go(-1);</script>")
response.End()
else
FromUrl=rs("FromUrl")
ManyPage=rs("ManyPage")
Articlelist1=rs("Articlelist1")
Articlelist2=rs("Articlelist2")
Addresslist1=rs("Addresslist1")
Addresslist2=rs("Addresslist2")
Addresslist=rs("Addresslist")
end if
rs.close
if chk() then
call admin_msg("数据已保存 \n 现在进行采集...","admin_"&index_url&"_gather.asp?id="&id,1)
exit sub
end if
call form_first()
call admin_td("采集内容测试")
%>
<form name=add_frm action='?action=ok_test&id=<%=id%>' method=post>
<input type=hidden name=chk value='yes'>
<TR>
<TD colspan=2>
<%
dim webstr,webstr1
webstr=Cls.BytesToBstr(Cls.getHTTPPage(FromUrl),"GB2312")
webstr=Cls.stripHTML(webstr,Articlelist1,Articlelist2)
webstr=Cls.SeparateHTML(webstr,Addresslist1,Addresslist2)
webstr=Cls.HttpUrls(Addresslist&webstr,FromUrl)
webstr1=webstr
webstr=Cls.BytesToBstr(Cls.getHTTPPage(webstr),"GB2312")
sql="select * from [DB_Dome] where ItemID="&ID
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,2
do while not rs.eof
MarkingA=trim(rs("MarkingA")&" ")
MarkingB=trim(rs("MarkingB")&" ")
Marking=trim(rs("Marking")&" ")
response.Write("<strong><font color=""#0000FF"">")
response.Write(rs("ColumnCname")&":")
response.Write("</strong></font>")
if Marking<>"" then
response.Write(Marking)
else
response.Write(Cls.SeparateHTML(webstr,MarkingA,MarkingB))
end if
response.Write("<br><br>")
rs.movenext
loop
response.Write("<strong><font color=""#0000FF"">")
response.Write("采集地址：")
response.Write("</strong></font>")
response.Write("<a href="&webstr1&" target=""_blank"">"&webstr1&"</a>")
response.Write("<br><br>")
response.Write("<hr>")
%>
</td>
</tr>
<tr>
<td height=30 colspan=2><INPUT name="Submit" type="submit" id="Submit" value="保存/下一步"></td>
</tr></form>
</table>
<%
end sub
sub joekoe_chk_main()
dim name,types,pageurl2
dim button,catch_data
pageurl2=pageurl
sql_add=" where nsort='"&index_url&"' "
call sql_cid_sid(sql_add)
button=request.Form("sel_type")
if button="删除" then
catch_data=isform(request.Form("sel_id"),"","选项")
sql="delete from [DB_Item] where id in("&catch_data&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,3
sql="delete from [DB_Dome] where Itemid in("&catch_data&")"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,3
response.Redirect("?")
end if
%>
<form name=sel_form action='?jk_mod=<%response.write jk_mod%>&action=handle&c_id=<%response.write cid%>&s_id=<%response.write sid%>' method=post>
<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="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>
<%
sql="select count(id) from [DB_Item] "&sql_add
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
call format_pagecute()
sql="select top "&nummer*viewpage&" * from [DB_Item] "&sql_add&" order by id desc"
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,1
if int(viewpage)>1 then rs.move (viewpage-1)*nummer
if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
for i=1 to nums
id=rs("id")
%>
<tr align=center>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td><a href='?action=add&jk_mod=edit&id=<%response.write id%>'><%=rs("ItemName")%></a></td>
<td>
<%
dim temprs
Set TempRs = Conn.Execute("Select * from jk_Class where C_ID = " & rs("C_ID") & "")
if TempRs.eof then
else
response.Write(TempRs("C_Name"))
end if
%>
</td>
<td><%response.Write("<A href="""&rs("FromUrl")&""" target=""_blank"">"&rs("FromName")&"</a>")%></TD>
<td align=right><font class=tims><%response.write joekoe_cms.time_type(rs("ItemTime"),4)%></font></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> <a href="?action=add&jk_mod=edit&id=<%=rs("id")%>">修改</a> <a href="#" title="<%=rs("StructureLog")%>">看备注</a></TD>
<td><input type=checkbox name=sel_id value='<%response.write id%>'></td>
</tr>
<%
rs.movenext
next
rs.close
%>
<tr class=tr1>
<td colspan=4>
现有<font class=red><%response.write rssum%></font>个<%response.write tit_fir%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
</td>
<td colspan=7 align=center>
执行
<select name=sel_type size=1>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td>
</tr>
</form>
<%
end sub
sub ArticleTitle(ccid,Title,MMid,Dome_ID,readonly,ColumnY)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border: 1px solid #D6D3CE">
<tr>
<td width="50%"><strong><font color="#0000FF">第<%=ccid%>组 </font><font color="#FF0000"><%=Title%>标记</font></strong></td>
<td align="left"><input type=hidden name=ColumnY<%=ccid%> value='<%=ColumnY%>'>
<input type="radio" name="nows<%=ccid%>" value=0 onClick="showsubmenu(<%=ccid%>,this)"
<%
if mmid=0 then
response.write "<input type=""radio"" name=""nows"&ccid&""" value=0 onClick=""showsubmenu("&ccid&",this)"" checked> 不需要操作 <input type=""radio"" name=""nows"&ccid&""" value=1 onClick=""showsubmenu("&ccid&",this)""> 定义标签 <input type=""radio"" name=""nows"&ccid&""" value=2 onClick=""showsubmenu("&ccid&",this)""> 指定固定值 <input name=""Dome_ID"" type=""hidden"" id=""Dome_ID"" value="""&Dome_ID&""">"
elseif mmid=1 then
response.write "<input type=""radio"" name=""nows"&ccid&""" value=0 onClick=""showsubmenu("&ccid&",this)"" disabled> 不需要操作 <input type=""radio"" name=""nows"&ccid&""" value=1 onClick=""showsubmenu("&ccid&",this)"" checked> 定义标签 <input type=""radio"" name=""nows"&ccid&""" value=2 onClick=""showsubmenu("&ccid&",this)""> 指定固定值 <input name=""Dome_ID"" type=""hidden"" id=""Dome_ID"" value="""&Dome_ID&""">"
else
response.write "<input type=""radio"" name=""nows"&ccid&""" value=0 onClick=""showsubmenu("&ccid&",this)"" disabled> 不需要操作 <input type=""radio"" name=""nows"&ccid&""" value=1 onClick=""showsubmenu("&ccid&",this)"" disabled> 定义标签 <input type=""radio"" name=""nows"&ccid&""" value=2 onClick=""showsubmenu("&ccid&",this)"" checked> 指定固定值 <input name=""Dome_ID"" type=""hidden"" id=""Dome_ID"" value="""&Dome_ID&""">"
end if
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" id='DBS<%=ccid%>' style="display=
<%
if mmid=1 then
response.Write("""")
else
response.Write("'none'")
end if
%>"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr >
<td width="50%" valign="top"><%=Title%>标记开始代码：</td>
<td width="50%">
<TEXTAREA name="DB_CodeA<%=ccid%>" cols="60" rows="8" <%=readonly%>><%=EMarkingA%></TEXTAREA>
</td>
</tr>
<tr>
<td width="50%" valign="top"><%=Title%>标记结束代码：</td>
<td width="50%">
<TEXTAREA name="DB_CodeB<%=ccid%>" cols="60" rows="8" id="DB_CodeB<%=ccid%>" <%=readonly%>><%=EMarkingB%></TEXTAREA>
</td>
</tr>
</table>
</td>
</tr>
<tr id='DB<%=ccid%>' style="display=
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -