📄 default.asp
字号:
<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
if not adminlevel=1 then
call msgbox("您的级别不够!",0)
end if
sql="select id,text,value2 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">
<form name="sourceadd" method="post" action="../base/source.asp?op=add">
<tr bgcolor="EFEFEF"><th colspan="2">添加新来源</th></tr>
<tr bgcolor="FFFFFF"><td>选项</td><td><input class="text" type="text" name="sourcetext"></td></tr>
<tr bgcolor="FFFFFF"><td>链接</td><td><input class="text" type="text" name="sourcevalue"></td></tr>
<tr bgcolor="FFFFFF"><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">
<form name="sourcedel" method="post" action="../base/source.asp?op=del">
<tr bgcolor="EFEFEF"><th colspan="2">资料来源</th></tr>
<tr bgcolor="FFFFFF"><td>选项</td><td>
<select name="source" onchange="seesource(this[this.selectedIndex].text,this[this.selectedIndex].value);this.selectedIndex=0">
<option>选择删除来源......
<%
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="FFFFFF"><td>链接</td><td><input class="text" type="text" name="sourcevalue"></td></tr>
<tr bgcolor="FFFFFF"><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"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -