📄 hy_jion.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>
<title>会 员 注 册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="10" vlink="#003399" alink="#CCCCCC">
<div align="right"> </div>
<table width="606" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#009900" bgcolor="#900000">
<tr valign="top" bgcolor="#FFFCEC">
<td width="604" bgcolor="#E7FDE3">
<form action=hy_join_ok.asp method=post name="frmRegister">
<table border=0 cellspacing=1 height=46 width="100%" cellpadding="0">
<tbody>
<tr>
<td align=right height=25 width="21%">志愿参加：</td>
<td height=25 width="79%"> <select name="txtst" id="txtst">
<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> <%
rs1.Close()
Set rs1 = Nothing
%> <font color=#ff0000>*<span class=tips_reg style="FONT-SIZE: 9pt"><font color="#009999">选择你要参加的协会</font></span></font></td>
</tr>
<tr>
<td align=right height=18 width="21%"></td>
<td height=18 width="79%"> <input name="cmdOK" type="button" value=提交资料>
</td>
</tr>
</tbody>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if frmRegister.txtst.value="" then
alert "提示: 请选择你要参加的协会!"
frmRegister.txtst.focus
else
call frmRegister.submit()
end if
end sub
</SCRIPT> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -