?? getmyclass.asp
字號:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<!--#include file="../lib/strlib.asp" -->
<!--#include file="../lib/UserCheck.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.liu
Response.Charset="GB2312"
Dim classRs,classid,classIndex
classid=NoSqlHack(trim(request.QueryString("classid")))
classIndex=NoSqlHack(trim(request.QueryString("index")))
if classid="" then response.End()
Set classRs=User_Conn.execute("select ClassID,ClassCName,UserNumber from FS_ME_InfoClass where UserNumber='"&session("FS_UserNumber")&"' and parentid="&classid)'ID or ClassID?
Response.Write("<select name='sel_myclass_"&(Cint(classIndex)+1)&"' onChange=""getMyChildClass(this,"&(Cint(classIndex)+1)&")"">"&vbcrlf)
Response.Write("<option value='myclass'>"&(Cint(classIndex)+1)&"級專欄</option>"&vbcrlf)
while not classRs.eof
Response.Write("<option value='"&classRs("Classid")&"'>"&classRs("ClassCName")&"</option>"&vbcrlf)
classRs.movenext
Wend
Response.Write("</select>"&vbcrlf)
Conn.close
User_Conn.close
Set User_Conn=nothing
Set Conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -