?? admin_itemclassdo.asp
字號:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div id="topmomo">
長篇采集系統項目管理</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr align="center">
<td height="30"><a href="Admin_ItemManage.asp">管理首頁</a> |
<a href="Admin_ItemAddNew.asp">添加新項目</a></td>
</tr>
</table>
<%
Select Case request.querystring("info")
Case "list"
Call list()
Case "save"
Call save()
Case "del"
Call del()
end select
Sub list()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr align="center">
<td colspan="8" height="25" class="thead">采 集 站 點 分 類 映 射 本 地 管 理</td>
</tr>
<tr align="center">
<td height="22" colspan="8" height="25" class="alt2">
<a href="Admin_Itemclassdo.asp?info=del&ItemID=<%=request.querystring("ItemID")%>">
刪除當前采集站所有分類映射</a></td>
</tr>
<tr align="center">
<td height="22" colspan="8" height="25" class=alt1>說明：獲取到的分類名稱——試采一部作品，顯示的分類名為可以獲取到的分類名稱（一般為目標站資料頁顯示的大類或小類名稱）</td>
</tr>
<tr style="padding: 0px 2px;" align="center" height="22">
<td width="40%" class="tcat">獲取到的分類名稱</td>
<td width="20%" class="tcat">映射到</td>
<td width="40%" class="tcat">本地分類名稱</td>
</tr>
<form action="Admin_Itemclassdo.asp?info=save" method="post" name="addform">
<%
ItemID=request.querystring("ItemID")
set rs=server.createobject("adodb.recordset")
sql="select list_classid,list_classname,list_typeid from [list_class] order by list_typeid"
rs.open sql,conn,1,1
Do while not rs.eof
%><tr height="25">
<td align="right" class="alt2">
<input name="name" type="text" value="<%set rsend=connItem.execute("select cname from [classdo] where classid="&rs("list_classid")&" and ItemID="&request.querystring("ItemID")&"")
if not(rsend.eof) then%><%=rsend("cname")%><% end if%>" size="25" class="form"></td>
<td align="center" class=alt1>映射為 → </td>
<td class=alt2>
<input name="classname" type="text" value="<%=rs("list_classname")%>" size="25" class="form" disabled>
<input name="typeid" type="hidden" value="<%=rs("list_typeid")%>">
<input name="classid" type="hidden" value="<%=rs("list_classid")%>">
</td>
</tr>
<%
rs.MoveNext
Loop
rs.close
%><tr>
<td height="25" align="center" colspan="8" class=alt3>
<input type="hidden" name="classdo" value="classdo" size="20">
<input type="hidden" name="ItemID" value="<%=request.querystring("ItemID")%>" size="20">
<input type="submit" value="確 定" name="B1" class="button"></td>
</tr>
</form>
</table>
</body>
</html>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub save()
ItemID=request("ItemID")
if ItemID="" Or ItemID=null then
Response.Write ("<SCRIPT language=JavaScript>alert('錯誤!\n\n數據傳遞錯誤！');javascript:window.close();</SCRIPT>")
Response.end
End If
cname=trim(request("name"))
nameArray=Split(cname, ",")
typeid=request("typeid")
typeidArray=Split(typeid, ",")
classid=request("classid")
classidArray=Split(classid, ",")
Num = UBound(nameArray)
For i=0 To Num
set rsco=server.createobject("adodb.recordset")
sql="select * from [classdo] where ItemID="&ItemID&" and classid="&classidArray(i)&""
rsco.open sql,connItem,1,3
if rsco.eof and rsco.bof then
rsco.addnew
rsco("ItemID")=ItemID
end if
rsco("cname")=trim(nameArray(i))
rsco("typeid")=typeidArray(i)
rsco("classid")=classidArray(i)
rsco.Update
rsco.close
set rsco=nothing
Next
Response.Write ("<SCRIPT language=JavaScript>alert('操作成功！');javascript:window.close();</SCRIPT>")
Response.end
end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub del()
ItemID=request("ItemID")
if ItemID="" Or ItemID=null then
Response.Write ("<SCRIPT language=JavaScript>alert('錯誤!\n\n數據傳遞錯誤！');javascript:window.close();</SCRIPT>")
Response.end
End If
connItem.execute "delete from [classdo] where id in ("&ItemID&") "
Response.Write ("<SCRIPT language=JavaScript>alert('操作成功！');javascript:window.close();</SCRIPT>")
Response.end
end sub%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -