📄 db_con.asp
字号:
<%
call admin_master(0,0)
call admin_cid_sid()
call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
<table border=0>
<tr>
<td><a href='?'>模块列表</a></td>
<td width=10></td>
<td><a href='?action=add'<%if action="add" then response.write " class=red"%>>添加模块</a></td>
<td width=10></td>
<td><a href='?action=mInput'<%if action="mInput" then response.write " class=red"%>>导入模块</a></td>
<td width=10></td>
<td><a href='?action=mExport'<%if action="mExport" then response.write " class=red"%>>导出模块</a></td>
<td width=10></td>
<td><a href='admin_<% response.write index_url%>_gather.asp'>数据采集</a></td>
</tr>
</table>
</td></tr>
</table>
<%
if jk_mod="edit" then a_e="编辑" else a_e="添加" end if
if action="handle" then call joekoe_go_handle()
select case action
case "clear"
call joekoe_go_clear()
case "add"
call admin_table(1)
call joekoe_chk_add()
case "add1"
call admin_table(1)
call joekoe_chk_add1()
case "add2"
call admin_table(1)
call joekoe_chk_add2()
case "add3"
call admin_table(1)
call joekoe_chk_add3()
case "ok_test"
call admin_table(1)
call joekoe_chk_ok_test()
case "edit"
call admin_table(1)
call joekoe_chk_edit()
case "Export"
call admin_table(1)
call joekoe_chk_Export()
case "input"
call joekoe_chk_input()
case "mExport"
call admin_table(1)
call joekoe_chk_mExport()
case "mInput"
call joekoe_chk_mInput()
case else
call admin_table(1)
call joekoe_chk_main()
end select
call admin_ender(1)
sub joekoe_chk_edit()
end sub
sub joekoe_chk_add()
dim Name,FromName,FromUrl,ColumnID,PicValue,PicPath,PicType,FalshValue,FalshPath,FalshType,MusicValue,MusicPath,MusicType,OtherValue,OtherPath,OtherType,ManyPage,StructureLog,itemname
if jk_mod="edit" then
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")
FromName=rs("FromName")
ItemName=rs("ItemName")
CID=rs("C_ID")
SID=rs("S_ID")
PicPath=rs("PicPath")
PicValue=rs("PicValue")
FalshPath=rs("FalshPath")
FalshValue=rs("FalshValue")
MusicPath=rs("MusicPath")
MusicValue=rs("MusicValue")
OtherPath=rs("OtherPath")
OtherValue=rs("OtherValue")
ManyPage=rs("Manypage")
PicType=rs("PicType")
FalshType=rs("FalshType")
MusicType=rs("MusicType")
OtherType=rs("OtherType")
StructureLog=rs("StructureLog")
end if
rs.close
end if
call admin_td(a_e&tit_fir)
if chk() then
Name=isform(request.Form("Name"),"字符","新模块名称")
FromName=isform(request.Form("FromName"),"字符","目标web名称")
FromUrl=isform(request.Form("FromUrl"),"字符","目标web地址")
csid=trim(request.form("c_id"))
if cs_nd(csid)=false then
call admin_error("请选择 "&tit_fir&"分类 ！")
exit sub
end if
PicValue=request.Form("PicValue")
if PicValue<>0 then
PicPath=request.Form("PicPath")
PicType=replace(LCase(request.Form("PicType")),"，",",")
end if
FalshValue=REQUEST.Form("FalshValue")
if FalshValue<>0 then
FalshPath=request.Form("FalshPath")
FalshType=replace(LCase(request.Form("FalshType")),"，",",")
end if
MusicValue=request.Form("MusicValue")
if MusicValue<>0 then
MusicPath=REQUEST.Form("MusicPath")
MusicType=replace(LCase(request.Form("MusicType")),"，",",")
end if
OtherValue=request.Form("OtherValue")
if OtherValue<>0 then
OtherPath=request.Form("OtherPath")
OtherType=replace(LCase(request.Form("OtherType")),"，",",")
end if
ManyPage=request.Form("ManyPage")
if ManyPage=1 then
ManyPage=true
else
ManyPage=false
end if
StructureLog=isform(request.Form("StructureLog"),"字符","新模块说明")
call chk_cid_sid()
if jk_mod="edit" then
sql="select * from [DB_Item] where id="&id
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,3
else
sql="select * from [DB_Item]"
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,3
rs.addnew
end if
rs("c_id")=cid
rs("s_id")=sid
rs("ItemName")=Name
rs("FromName")=FromName
rs("FromUrl")=FromUrl
if PicValue<>0 then
rs("PicPath")=PicPath
else
rs("PicPath")=""
end if
rs("PicValue")=PicValue
if FalshValue<>0 then
rs("FalshPath")=FalshPath
else
rs("FalshPath")=""
end if
rs("FalshValue")=FalshValue
if MusicValue<>0 then
rs("MusicPath")=MusicPath
else
rs("MusicPath")=""
end if
rs("MusicValue")=MusicValue
if OtherValue<>0 then
rs("OtherPath")=OtherPath
else
rs("OtherPath")=""
end if
rs("OtherValue")=OtherValue
rs("ManyPage")=ManyPage
rs("StructureLog")=StructureLog
rs("nsort")=index_url
rs.update
id=rs("id")
rs.close
if jk_mod<>"edit" then
sql="select * from [DB_Dome]"
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,2,3
dim DBarray,ddim
DBarray=split(DB_array,"|")
for i=0 to ubound(DBarray)
rs.addnew
rs("ItemID")=id
ddim=split(dbarray(i),":")
rs("ColumnID")=ddim(0)
rs("Columncname")=ddim(1)
rs("Columnename")=ddim(2)
rs("mid")=ddim(3)
rs("ColumnV")=ddim(4)
rs("ColumnD")=ddim(5)
rs("ColumnY")=ddim(6)
rs.update
next
rs.close
end if
call admin_msg("已成功第一步操作！","?action=add1&jk_mod="&jk_mod&"&id="&id,1)
exit sub
end if
call form_first()
if jk_mod="edit" then
call module_menu()
end if
%>
<form name=add_frm action='?action=add&id=<%=id%>&jk_mod=<%=jk_mod%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>模块名称：</td>
<td><input type=text name=name size=30 maxlength=30 value="<%=ItemName%>"><%response.write redx%> 所属分类：<%call chk_csid(nsort,cid,sid)%></td>
</tr>
<tr>
<td><%response.write tit_fir%>目标web名称：</td>
<td><input type=text name=fromname size=30 maxlength=30 value="<%=fromname%>"><%response.write redx%> <%response.write tit_fir%>目标web地址：<input type=text name=fromurl size=30 maxlength=250 value="<%=fromurl%>"><%response.write redx%></td>
</tr>
<tr>
<td><%response.write tit_fir%>目标说明：</td>
<td>被采集的<%response.write tit_fir%>中是否包含分页 <input name="ManyPage" type="checkbox" id="ManyPage" value="1" <%if ManyPage then response.Write("checked")%>><BR><textarea name=StructureLog rows=5 cols=50><%=StructureLog%></textarea></td>
</tr>
<tr>
<td>图片保存地址：</td>
<td><input name="PicPath" type="text" value="" value="<%=PicPath%>"> 保存类型：
<select name="PicValue" id="PicValue">
<option value="0" <%if PicValue=0 then response.Write("selected")%>>不保存</option>
<option value="1" <%if PicValue=1 then response.Write("selected")%>>040728022626_19702.gif</option>
<option value="2" <%if PicValue=2 then response.Write("selected")%>>040728\040728022626_19702.gif</option>
<option value="3" <%if PicValue=3 then response.Write("selected")%>>04-07-28\040728022626_19702.gif</option>
</select></td>
</tr>
<tr>
<td>图片限制：</td>
<td><input name="flashType" type="text" id="flashType" value="gif,jpg,bmp,png" size="40" value="<%=PicType%>">多个以,分开;例：gif,jpg</td>
</tr>
<tr>
<td>Falsh保存地址：</td>
<td><input name="flashPath" type="text" value="" value="<%=FalshPath%>"> 保存类型：
<select name="flashValue" id="flashValue">
<option value="0" <%if FalshValue=0 then response.Write("selected")%>>不保存</option>
<option value="1" <%if FalshValue=1 then response.Write("selected")%>>040728022626_19702.swf</option>
<option value="2" <%if FalshValue=2 then response.Write("selected")%>>040728\040728022626_19702.swf</option>
<option value="3" <%if FalshValue=3 then response.Write("selected")%>>04-07-28\040728022626_19702.swf</option>
</select></td>
</tr>
<tr>
<td>Falsh限制：</td>
<td><input name="flashType" type="text" id="flashType" value="swf" size="40" value="<%=FalshType%>">多个以,分开;例：gif,jpg</td>
</tr>
<tr>
<td>音乐保存地址：</td>
<td><input name="musicPath" type="text" value="" value="<%=MusicPath%>"> 保存类型：
<select name="musicValue" id="musicValue">
<option value="0" <%if MusicValue=0 then response.Write("selected")%>>不保存</option>
<option value="1" <%if MusicValue=1 then response.Write("selected")%>>040728022626_19702.mp3</option>
<option value="2" <%if MusicValue=2 then response.Write("selected")%>>040728\040728022626_19702.mp3</option>
<option value="3" <%if MusicValue=3 then response.Write("selected")%>>04-07-28\040728022626_19702.mp3</option>
</select></td>
</tr>
<tr>
<td>音乐限制：</td>
<td><input name="musicType" type="text" id="musicType" value="mp3" size="40" value="<%=MusicType%>">多个以,分开;例：gif,jpg</td>
</tr>
<tr>
<td>其它保存地址：</td>
<td><input name="otherPath" type="text" value="" value="<%=OtherPath%>"> 保存类型：
<select name="otherValue" id="otherValue">
<option value="0" <%if OtherValue=0 then response.Write("selected")%>>不保存</option>
<option value="1" <%if OtherValue=1 then response.Write("selected")%>>040728022626_19702.*</option>
<option value="2" <%if OtherValue=2 then response.Write("selected")%>>040728\040728022626_19702.*</option>
<option value="3" <%if OtherValue=3 then response.Write("selected")%>>04-07-28\040728022626_19702.*</option>
</select></td>
</tr>
<tr>
<td>其它限制：</td>
<td><input name="otherType" type="text" id="otherType" value="js" size="40" value="<%=OtherType%>">多个以,分开;例：gif,jpg</td>
</tr>
<%
call submit_add()
end sub
sub joekoe_chk_add1()
dim fromurl,submit,Articlelist1,Articlelist2
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
Articlelist1=rs("Articlelist1")
Articlelist2=rs("Articlelist2")
FromUrl=rs("FromUrl")
end if
rs.close
submit=request.Form("submit")
if submit="测试" then
call admin_td(a_e&tit_fir&"第二步（测试）")
Articlelist1=Isform(request.Form("Articlelist1"),"字符",tit_fir&"列表标记开始代码")
Articlelist2=Isform(request.Form("Articlelist2"),"字符",tit_fir&"列表标记结束代码")
else
call admin_td(a_e&tit_fir&"第二步")
if chk() then
Articlelist1=Isform(request.Form("Articlelist1"),"字符",tit_fir&"列表标记开始代码")
Articlelist2=Isform(request.Form("Articlelist2"),"字符",tit_fir&"列表标记结束代码")
sql="select * from [DB_Item] where id="&id
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,2,3
rs("Articlelist1")=Articlelist1
rs("Articlelist2")=Articlelist2
rs.update
rs.close
call admin_msg("已成功进行"&tit_fir&"第二步操作！","?action=add2&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)
response.Write(webstr)
%>
</td>
</tr>
<%end if%>
<form name=add_frm action='?action=add1&jk_mod=<%=jk_mod%>&id=<%=id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td><%response.write tit_fir%>列表标记开始代码：</td>
<td><TEXTAREA name="Articlelist1" cols="60" rows="8" id="Articlelist1"><%=Articlelist1%></TEXTAREA></td>
</tr>
<tr>
<td><%response.write tit_fir%>列表标记结束代码：</td>
<td><TEXTAREA name="Articlelist2" cols="60" rows="8" id="Articlelist2"><%=Articlelist2%></TEXTAREA></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_add2()
dim fromurl,submit,Articlelist1,Articlelist2,Addresslist,Addresslist1,Addresslist2
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")
Addresslist=rs("Addresslist")
Articlelist1=rs("Articlelist1")
Articlelist2=rs("Articlelist2")
Addresslist1=rs("Addresslist1")
Addresslist2=rs("Addresslist2")
end if
rs.close
submit=request.Form("submit")
if submit="测试" then
call admin_td(a_e&tit_fir&"第三步（测试）")
Addresslist1=Isform(request.Form("Addresslist1"),"字符",tit_fir&"列表地址标记开始代码")
Addresslist2=Isform(request.Form("Addresslist2"),"字符",tit_fir&"列表地址标记结束代码")
Addresslist=request.Form("Addresslist")
else
call admin_td(a_e&tit_fir&"第三步")
if chk() then
Addresslist1=Isform(request.Form("Addresslist1"),"字符",tit_fir&"列表地址标记开始代码")
Addresslist2=Isform(request.Form("Addresslist2"),"字符",tit_fir&"列表地址标记结束代码")
Addresslist=request.Form("Addresslist")
sql="select * from [DB_Item] where id="&id
call joekoe_cms.exec(sql,-1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -