电子政务应用

开发平台：

HTML/CSS

yns_test.asp：源码内容

							<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->
<%
'请尊重作者劳动成果不要删除以上信息
'业一新闻系统3.0正式版
'主页：http://yeyi.net
'论坛：http://bbs.yeyi.net
'业一网络 承接各种网站制作
'程序开发 软件开发业务
'业务联系
'电话： 13007310512
'联系人：郝亚平
'QQ：24344842 （只谈业务，技术问题请访问论坛）
'请尊重作者劳动成果不要删除以上信息
%>
<%
Dim rst
Dim rst_numRows
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = MM_conn_news_STRING
rst.Source = "SELECT * FROM t_type"
rst.CursorType = 0
rst.CursorLocation = 2
rst.LockType = 1
rst.Open()
rst_numRows = 0
%>
<%
Dim rsm
Dim rsm_numRows
Set rsm = Server.CreateObject("ADODB.Recordset")
rsm.ActiveConnection = MM_conn_news_STRING
rsm.Source = "SELECT * FROM t_mob"
rsm.CursorType = 0
rsm.CursorLocation = 2
rsm.LockType = 1
rsm.Open()
rsm_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>业一新闻系统3.0正式版-------业一网络Yeyi.net制作</title>
</head>
<body>
<form name="form1" method="post" action="yns_cab.asp">
  <select name="t_id" id="t_id">
    <%
While (NOT rst.EOF)
%>
    <option value="<%=(rst.Fields.Item("t_id").Value)%>"><%=(rst.Fields.Item("t_name").Value)%></option>
    <%
  rst.MoveNext()
Wend
If (rst.CursorType > 0) Then
  rst.MoveFirst
Else
  rst.Requery
End If
%>
  </select>
  <select name="m_id" id="m_id">
    <%
While (NOT rsm.EOF)
%>
    <option value="<%=(rsm.Fields.Item("m_id").Value)%>"><%=(rsm.Fields.Item("m_name").Value)%></option>
    <%
  rsm.MoveNext()
Wend
If (rsm.CursorType > 0) Then
  rsm.MoveFirst
Else
  rsm.Requery
End If
%>
  </select>
  <input type="submit" name="Submit" value="更新">
</form>
</body>
</html>
<%
rst.Close()
Set rst = Nothing
%>
<%
rsm.Close()
Set rsm = Nothing
%>

						