📄 fbsp_look.asp

📁 网上新闻调查发布系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="myzb.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("id")
End If
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "SELECT * FROM sp WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_myzb_STRING
Recordset2.Source = "SELECT * FROM usero where dengluming='"&(Recordset1.Fields.Item("fbr").Value)&"'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href=images/k.css rel=stylesheet>
<style type="text/css">
.mm_botton{
border-top: #c4cccc 3px double; 
border-right: #acb5b5 3px double; 
border-bottom: #6f7777 3px double;
border-left: #acb5b5 3px double; 
background: url(images/background_form_element.gif) #fefefe repeat-x; 
font:12px tahoma;
padding-top:2px;
padding-bottom:2px;
padding-left:2px;
padding-right:3px;
text-decoration: none;
color:#666666;
}

.mm_botton:link{
color:#666666;
}

.mm_botton:hover{
border-top: #aedf9a 3px double; 
border-right: #94da78 3px double; 
border-bottom: #6ab94b 3px double;
border-left: #94da78 3px double; 
text-decoration:none;
color:#999999;
}
<!--
body,td,th {
	font-size: 12px;
	color: #000000;
}
body {
	background-image: url(images/bg.gif);
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}

-->
</style></head>

<body>
  <table width="407" height="384" border="1" align="center">
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">商品名称</td>
   <td align="left" width="81%"><%=(Recordset1.Fields.Item("spmc").Value)%></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">商品简介</td>
   <td align="left" width="81%"><%=(Recordset1.Fields.Item("spjj").Value)%></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">发布单位</td>
   <td align="left" width="81%"><%=(Recordset1.Fields.Item("fbdw").Value)%></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">图片预览</td>
   <td align="left" width="81%"><a href="<%=(Recordset1.Fields.Item("sppic").Value)%>" target="_blank"><img src="<%=(Recordset1.Fields.Item("sppic").Value)%>" alt="点击查看大图" width="196" height="196" border="0"></a></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">发布人</td>
   <td width="81%" align="left" valign="middle"><a href="#" target="_self" onClick="window.open('user/user.asp?b6=<%=(Recordset2.Fields.Item("dengluming").Value)%>','callwindow','top=0,left=0,width=390,height=300,status=no,resizable=no,scrollbars=no')"><img src="<%=(Recordset2.Fields.Item("face").Value)%>" alt="查看他的资料" class="mm_botton"></a><%=(Recordset1.Fields.Item("fbr").Value)%></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">备注</td>
   <td align="left" width="81%"><%=(Recordset1.Fields.Item("bz").Value)%></td>
  </tr>
  <tr>
   <td width="19%" align="center" valign="middle" bgcolor="#FFFFFF">发布时间</td>
   <td align="left" width="81%"><%=(Recordset1.Fields.Item("fbtime").Value)%></td>
  </tr>
</table>

  <table width="349" border="0">
    <tr>
      <th scope="col"><input name="Submit" type="submit" class="mm_botton" onClick="javascript:history.go(-1);" value="返回上一页"></th>
    </tr>
  </table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -