📄 beizhu.asp

📁 体育商城

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim beizhu__MMColParam
beizhu__MMColParam = "1"
if (Request.QueryString("id") <> "") then beizhu__MMColParam = Request.QueryString("id")
%>
<%
set beizhu = Server.CreateObject("ADODB.Recordset")
beizhu.ActiveConnection = MM_conn_STRING
beizhu.Source = "SELECT * FROM gsjs WHERE id = " + Replace(beizhu__MMColParam, "'", "''") + ""
beizhu.CursorType = 0
beizhu.CursorLocation = 2
beizhu.LockType = 3
beizhu.Open()
beizhu_numRows = 0
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>										
function DoWhiteSpace(str)												
	DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), "&nbsp;&nbsp;")			
End Function														
</SCRIPT>														
<html>
<head>
<title><%=(beizhu.Fields.Item("jsname").Value)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center" height="76" class="bk1">
  <tr> 
    <td height="37"> 
      <p align="center"><font size="3"><b><font color="#000000"><%=(beizhu.Fields.Item("jsname").Value)%></font></b></font></p>
    </td>
  </tr>
  <tr>
    <td valign="top" height="46"><%= DoWhiteSpace(beizhu.Fields.Item("gsjs").Value)%></td>
  </tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
beizhu.Close()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -