📄 edityqlj.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15 HTTP://www.wapfs.net
'=================================================
%>
<%
if session("admin")="" then
response.redirect "admin.asp"
else
if session("flag")>2 then
response.write "<br/><p align=center>您没有操作的权限</p>"
response.end
end if
end if
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!-- #include file="conn.asp" -->
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='修改友链' >
<p><%
id=request("id")
dim rs
set rs = server.createobject("adodb.recordset")
sql="select * from link where id="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何友链！"
else
%>
网站类别：
<br/><select name='classid'>
<%
classid=request("classid")
set rs2 = server.createobject("adodb.recordset")
sql="select * from linkclass"
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then
response.write "没有记录"
else
do while not rs2.eof
if rs("classid")=rs2("id") then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"&rs2("id")&"'>"&rs2("class")&"</option>"
rs2.movenext
loop
end if
rs2.close
%>
</select>
<br/>网站名称：
<br/><input type='text' size='10' name='name<%=minute(now)%><%=second(now)%>' value='<% =rs("name") %>'/>
<br/>网站地址：
<br/><input type='text' size='10' name='link<%=minute(now)%><%=second(now)%>' value='<% =rs("link") %>'/>
<br/><anchor>[-修改-]
<go href='postyqlj.asp?ID=<%=ID%>' method='post' accept-charset='utf-8'>
<postfield name='classid' value='$(classid<%=minute(now)%><%=second(now)%>)'/>
<postfield name='name' value='$(name<%=minute(now)%><%=second(now)%>)'/>
<postfield name='link' value='$(link<%=minute(now)%><%=second(now)%>)'/>
</go>
</anchor>
<%
end if
rs.close
%>
<br/>------------
<br/><a href='main.asp'>管理首页</a></p>
</card>
</wml> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -