index_main.asp

该程序可应用于小学教学软件

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<%
Dim rs_yb__MMColParam
rs_yb__MMColParam = "1"
If (Request.QueryString("nr") <> "") Then 
  rs_yb__MMColParam = Trim(CStr(Request.QueryString("nr")))
End If
%>
<%
Dim rs_yb
Dim rs_yb_numRows

Set rs_yb = Server.CreateObject("ADODB.Recordset")
rs_yb.ActiveConnection = MM_ybqh_STRING
Select case Request.QueryString("type")
	Case "dm"
cmd_line=" dq ='"&Replace(rs_yb__MMColParam, "'", "''")&"'"
	Case "qh"
cmd_line=" qh ='"&Replace(rs_yb__MMColParam, "'", "''")&"'"
	Case "yb"
cmd_line=" yb='"&Replace(rs_yb__MMColParam, "'", "''")&"'"			
End Select

rs_yb.Source = "SELECT * FROM ybqh WHERE"&cmd_line
rs_yb.CursorType = 0
rs_yb.CursorLocation = 2
rs_yb.LockType = 1
rs_yb.Open()

rs_yb_numRows = 0
%>
<link href="style.css" rel="stylesheet" type="text/css">
 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="xiao">
  <!--DWLayoutTable-->
  <tr> 
    <td height="48" colspan="4" valign="top"><img src="images/ybcx_16.gif" width="128" height="34"></td>
  </tr>
  <tr> 
    <td width="20" height="58">&nbsp;</td>
    <td colspan="3" valign="top" class="xiao">您要查找的内容是：<strong><%=Request.QueryString("nr")%></strong><br>
      经过查询，这个 
      <%
	Select case Request.QueryString("type")
			Case "dm"
				ts1="地名"
			Case "qh"
				ts1="区号"			
			Case "yb"
				ts1="邮政编码"			
	End Select
	%> <%=ts1%> 
		<%If Session("not_found")="yes" Then %>
	      <font color="#CC0000"><strong>没有找到，请确认是否正确！</strong></font>
		  	  <%Else %>
	的资料是:<br>
	  地名： <strong><%=rs_yb("dq")%></strong> 　区号：<strong><%=rs_yb("qh")%></strong>　邮编：<strong><%=rs_yb("yb")%></strong>
	  </td>
  </tr>
  <tr> 
    <td height="20"></td>
    <td colspan="3" valign="bottom"><strong>当地介绍：</strong></td>
  </tr>
  <tr> 
    <td height="47"></td>
    <td width="25">&nbsp;</td>
    <td width="622" valign="top"><%=(rs_yb.Fields.Item("js").Value)%></td>
    <td width="27">&nbsp;</td>
  </tr>
  <tr> 
    <td height="18"></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
<%End If %>  
</table>
<%
rs_yb.Close()
Set rs_yb = Nothing
%>
<font color="#FFFFFF"><strong>
<script src='http://www.bsgy.net/count/CounterLink1.asp'></script>
</strong></font>