📄 my_style.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title>设置您的风格</title>
<script language="javascript">
function winclose()
{
window.opener.location.reload()
window.close
}
moveTo(280,180)
</script>
<style type="text/css">
<!--
td {
font-size: 10pt;
}
-->
</style>
</head>
<%
if trim(request.form("Submit")) = "确定" then
styleid = trim(request.Form("styleid"))
if IsNumeric(styleid) then
response.Cookies(JBBMasterCookies)("styleid") = styleid
response.write"<body bgcolor=menu leftmargin=""0"" topmargin=""3"" style=""border:none"" scroll=no ondragstart=""return false"" onselectstart=""return false"" onUnload=""winclose()"">"
response.Write("<script javascript=language>window.close()</script>")
End if
else
%>
<body bgcolor=menu leftmargin="0" topmargin="0" style="border:none" scroll=no oncontextmenu="return false" ondragstart="return false"
onselectstart="return false">
<!--#include file="admin/BBSConfig.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" height="31"> </td>
<td width="79%"> </td>
</tr>
<form name="form1" method="post" action="">
<tr>
<td colspan="2"><div align="center">选择风格:
<select name="styleid" id="styleid">
<%
styleid = trim(request.Cookies(JBBMasterCookies)("styleid"))
if Not(IsNumeric(styleid)) or styleid="0" then styleid=1
set rs = server.CreateObject("adodb.recordset")
rs.open "select styleid,stylename from JBB_style",conn,1,1
if Not(rs.Bof and rs.Eof) then
for s = 1 to rs.recordCount
%>
<option value="<%=rs(0)%>" <%if Cstr(rs(0)) = Cstr(styleid) then response.Write("selected")%>><%=rtrim(rs(1))%></option>
<%
rs.MoveNext
Next's
End if
rs.close
set rs = nothing
%>
</select>
<input type="submit" name="Submit" value="确定">
</div></td>
</tr> </form>
</table>
<%
set conn=nothing
End if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -