📄 admin_look.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
%>
<!--#include file="admin_conn.asp" -->
<%
Dim rs1__MMColParam
rs1__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rs1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs1
Dim rs1_numRows
response.Write(id)
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_adminconn_STRING
rs1.Source = "SELECT * FROM stinfor WHERE st_state = " + Replace(rs1__MMColParam, "'", "''") + " ORDER BY st_date ASC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>社团编辑</title>
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body>
<form name="form1" method="post" action="admin_look_rs.asp">
<select name="keywords" id="keywords">
<option value="" selected>请选择操作对象：</option>
<%
While (NOT rs1.EOF)
%>
<option value="<%=(rs1.Fields.Item("st_name").Value)%>" <%If (Not isNull("请选择")) Then If (CStr(rs1.Fields.Item("st_name").Value) = CStr("请选择")) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs1.Fields.Item("st_name").Value)%></option>
<%
rs1.MoveNext()
Wend
If (rs1.CursorType > 0) Then
rs1.MoveFirst
Else
rs1.Requery
End If
%>
</select>
<input name="cmdOK" type="button" id="cmdOK" value="查看" >
</form>
<%
rs1.Close()
Set rs1 = Nothing
%>
</body>
</html>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if form1.keywords.value="" then
alert "提示: 请选择你要查看的社团名称!"
else
call form1.submit()
end if
end sub
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -