📄 fbdail.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Request.QueryString("gqid") <> "") then Recordset1__MMColParam = Request.QueryString("gqid")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM gqxt WHERE gqid = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID
strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If
On Error Resume Next
If (nLCID > -1) Then
Session.LCID = nLCID
End If
If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If
If (nLCID > -1) Then
Session.LCID = oldLCID
End If
DoDateTime = strRet
End Function
</SCRIPT>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"><img src="images/chakan.gif" width="164" height="37"></p>
<table width="96%" border="0" align="center">
<tr>
<td width="22%" class="dfont"><b>信息标题：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("gqtitle").Value)%></td>
</tr>
<tr>
<td width="22%" class="dfont"><b>发布人：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("fbname").Value)%> </td>
</tr>
<tr>
<td width="22%" class="dfont"><b>电子信箱：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("fbemail").Value)%> </td>
</tr>
<tr>
<td width="22%" class="dfont"><b>发布类型：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("leixing").Value)%> </td>
</tr>
<tr>
<td width="22%" class="dfont"><b>有效日期：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("yxtime").Value)%> </td>
</tr>
<tr>
<td width="22%" class="dfont"><b>发布日期：</b></td>
<td width="78%" class="dfont"><%= DoDateTime((Recordset1.Fields.Item("fbdate").Value), 1, -1) %></td>
</tr>
<tr>
<td width="22%" class="dfont"><b>发布内容：</b></td>
<td width="78%" class="dfont"><%=(Recordset1.Fields.Item("gqneirong").Value)%></td>
</tr>
<tr>
<td colspan="2" height="17">
<div align="center"></div>
</td>
</tr>
</table>
<p class="dfont">说明：个人和企业提供的信息的真实性与本站无关，本站只<br>
是提供一个场所。</p>
<p class="dfont" align="center"><font size="2">〓<a href="javascript:self.close()">关闭窗口</a>〓</font>
</p>
</body>
</html>
<%
Recordset1.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -