📄 zjlj.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15 HTTP://www.wapfs.net
'=================================================
%>
<%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'/>
</head>
<card title="增加友链">
<p>
<%
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select id,class from linkclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目<br/>"
else
%>选择类别：<select name="classid">
<% do while not rs.eof
%><option value='<%=rs("id")%>'><%=rs("class")%></option>
<%
rs.movenext
loop
%></select><br/>
网站名称:<input type="text" name="name"/><br/>
网站地址:<input type="text" name="link" value="http://"/><br/>
<anchor>增加<go href="post.asp" method="post">
<postfield name="name" value="$(name)"/>
<postfield name="link" value="$(link)"/>
<postfield name="classid" value="$(classid)"/></go></anchor>
<br/>------------
<br/><a href='index.asp'>网站首页</a>
<% end if
%></p>
</card></wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -