<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<%
userid=Session("userid")
userlevel=Session("userlevel")
if userid="" or userlevel="" then
  call msgbox("請(qǐng)重新登陸！",3)
end if
if not isnumeric(userid) or not isnumeric(userlevel) then
  call msgbox("請(qǐng)重新登陸！",3)
end if
userid=CCur(userid)
userlevel=CCur(userlevel)
if not userlevel=1 then
  call msgbox("您的級(jí)別不夠！",0)
end if

sql="select id,text,value from source"
rs.open sql,conn,1,1
if not rs.eof then
  source=rs.getrows
end if
rs.close

Set rs=nothing
Set conn=nothing
%>
<!--#include file="../inc/head.asp"-->

<table border="0" align="center" cellpadding="2" cellspacing="1">
<tr><td>

<table width="200" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
<form name="sourceadd" method="post" action="../base/source.asp?op=add">
  <tr class="menutitle"><th colspan="2">添加新來(lái)源</th></tr>
  <tr bgcolor="#ffffff"><td>選項(xiàng)</td><td><input class="text" type="text" name="sourcetext"></td></tr>
  <tr bgcolor="#f0f0f0"><td>鏈接</td><td><input class="text" type="text" name="sourcevalue"></td></tr>
  <tr bgcolor="#f0f0f0"><th colspan="2">
    <input class="button" type="submit" name="Submit" value="提　交">
    <input class="button" type="reset" name="reset" value="取　消">
  </th></tr>
</form>
</table>

</td><td>

<table width="200" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
<form name="sourcedel" method="post" action="../base/source.asp?op=del">
  <tr class="menutitle"><th colspan="2">資料來(lái)源</th></tr>
  <tr bgcolor="#ffffff"><td>選項(xiàng)</td><td>
    <select name="source" onchange="seesource(this[this.selectedIndex].text,this[this.selectedIndex].value);this.selectedIndex=0">
    <option>選擇刪除來(lái)源......
<%
if isarray(source) then
  for i=0 to ubound(source,2)
%><option value="<%=source(0,i)&"|"&source(2,i)%>"><%=source(1,i)%><%
  next
  Set source=nothing
end if
%>
    </select><input type="hidden" name="sourceid">
  </td></tr>
  <tr bgcolor="#f0f0f0"><td>鏈接</td><td><input class="text" type="text" name="sourcevalue"></td></tr>
  <tr bgcolor="#f0f0f0"><th colspan="2">
    <input class="button" type="submit" name="Submit" value="移　除">
  </th></tr>
</form>
</table>

</td></tr>
</table>

<script>
function seesource(text,value){
  value=value.split("|");
  document.sourcedel.sourceid.value=value[0];
  document.sourcedel.sourcevalue.value=value[1];
}
</script>


<!--#include file="../inc/foot.asp"-->