📄 menu.asp
字号:
<!--#include file="../sys.asp"-->
javastr=""
javastr="<head><link rel=stylesheet type=text/css href=<%=webserveurl%>sys/inc/soonhost.css>"
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
javastr=javastr+"</head>"
javastr=javastr+"<form method=\"post\" action=\"<%=webserveurl%>vote/vote.asp\" name=\"vote\">"
javastr=javastr+"<table width=<%=request("thewith")%> cellspacing=\"0\" cellpadding=\"1\" border=\"<%=voteborder%>\" bordercolor=\"#000000\" >"
javastr=javastr+"<tr bgcolor=\"#FFCC99\">"
javastr=javastr+"<td>"
javastr=javastr+"<div align=\"center\"><%=request("votetarget")%></div>"
javastr=javastr+"</td>"
javastr=javastr+"</tr>"
javastr=javastr+"<tr><td><br>"
<%
dim sql,rs
call conned()
set rs=server.createobject("adodb.recordset")
sql = "Select id,bselect from vote order by id "
rs.open sql,conn,1,3
do while not rs.eof
%>
javastr=javastr+"<input type=\"radio\" name=\"selected\" value=\"<%=rs("id")%>\"> <%=rs("bselect")%><br><br>"
<%
rs.MoveNext
Loop
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
'==========================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'==========================================
%>
javastr=javastr+"</td></tr>"
javastr=javastr+"<tr><td>"
javastr=javastr+"<div align=\"center\"> <input type=\"submit\" value=\"投票\" name=\"submit\">"
javastr=javastr+" <input type=\"button\" name=\"button\" value=\"查看\" onClick=\"MM_goToURL('parent','<%=webserveurl%>vote/view.asp');return document.MM_returnValue\" ></div>"
javastr=javastr+"</tr></td>"
javastr=javastr+"</table>"
javastr=javastr+"</form>"
document.write (javastr)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -