📄 news.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
set bclass = Server.CreateObject("ADODB.Recordset")
bclass.ActiveConnection = MM_conn_STRING
bclass.Source = "SELECT * FROM bclass"
bclass.CursorType = 0
bclass.CursorLocation = 2
bclass.LockType = 3
bclass.Open()
bclass_numRows = 0
%>
<%
Dim news__MMColParam
news__MMColParam = "1"
if (Request.QueryString("newid") <> "") then news__MMColParam = Request.QueryString("newid")
%>
<%
set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_conn_STRING
news.Source = "SELECT * FROM news WHERE newid = " + Replace(news__MMColParam, "'", "''") + ""
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 3
news.Open()
news_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 7
Dim HLooper1__index
HLooper1__index = 0
bclass_numRows = bclass_numRows + HLooper1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 10
Dim Repeat2__index
Repeat2__index = 0
tuijian_numRows = tuijian_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 10
Dim Repeat1__index
Repeat1__index = 0
hot_numRows = hot_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = 7
Dim Repeat3__index
Repeat3__index = 0
news_numRows = news_numRows + Repeat3__numRows
%>
<%
Dim HLooper3__numRows
HLooper3__numRows = 4
Dim HLooper3__index
HLooper3__index = 0
dazhe_numRows = dazhe_numRows + HLooper3__numRows
%>
<%
Dim HLooper2__numRows
HLooper2__numRows = 2
Dim HLooper2__index
HLooper2__index = 0
newproduct_numRows = newproduct_numRows + HLooper2__numRows
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), " ")
End Function
</SCRIPT>
<html>
<head>
<title><%=(news.Fields.Item("title").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="2" marginwidth="0" marginheight="0">
<SCRIPT language=javascript>
<!--
document.ns = navigator.appName == "Netscape"
window.screen.width>800 ? imgheight=110:imgheight=110
window.screen.width>800 ? imgleft=110:imgleft=110
function qingzuiload()
{
if (navigator.appName == "Netscape")
{document.qingzui.pageY=pageYOffset+window.innerHeight-imgheight;
document.qingzui.pageX=pageXOffset+window.innerWidth-imgleft;
qingzuimove();
}
else
{
qingzui.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight;
qingzui.style.left=document.body.offsetWidth-imgleft;
qingzui2.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-80;
qingzui2.style.left=document.body.offsetWidth-imgleft;
qingzuimove();
}
}
function qingzuimove()
{
if(document.ns)
{
document.qingzui.top=pageYOffset+window.innerHeight-imgheight
document.qingzui.left=pageXOffset+window.innerWidth-imgleft;
setTimeout("qingzuimove();",80)
}
else
{
qingzui.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight;
qingzui.style.left=document.body.offsetWidth-imgleft;
qingzui2.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-80;
qingzui2.style.left=document.body.offsetWidth-imgleft;
setTimeout("qingzuimove();",80)
}
}
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true)
if (navigator.appName == "Netscape")
{document.write("<layer id=qingzui top=300 width=64 height=80><a href=cart.asp><img src=images/lookcart.gif border=0></a></layer>")
qingzuiload()}
else
{
document.write("<div id=qingzui style='position: absolute;width:64;top:300;hidden: visible;z-index: 1'><a href=cart.asp><img src=images/lookcart.gif border=0></a></div>"
+"<div id=qingzui2 style='position: absolute;visibility: hidden;z-index: 10'><img src=images/lookcart.gif></div>");
qingzuiload()
}
//-->
</SCRIPT>
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center" height="258" class="bk1">
<tr>
<td valign="top" height="44" width="50" bgcolor="#999999" background="images/BG020.jpg"><br>
</td>
<td valign="top" height="44" class="bk1" width="701"> <br>
<table width="143" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="images/bbxwzx.gif" width="251" height="55"></td>
</tr>
</table>
<table width="92%" border="0" cellspacing="0" cellpadding="0" align="center" class="dfont">
<tr>
<td height="49" colspan="2">
<div align="center"><font size="3"><b><font color="#003399"><%=(news.Fields.Item("title").Value)%></font></b></font></div>
</td>
</tr>
<tr>
<td height="23" width="80%">
<p><font color="#000000"><%= DoWhiteSpace(news.Fields.Item("neirong").Value)%></font></p>
<p> </p>
<p> </p>
</td>
<td height="45" width="20%" valign="top">
<div align="center">
<table width="143" border="0" cellspacing="0" cellpadding="0">
<% If (news.Fields.Item("images").Value) <> ("") Then 'script %>
<tr>
<td>
<div align="center"><img src="images/news/<%=(news.Fields.Item("images").Value)%>" width="120" height="120"></div>
</td>
</tr>
<tr>
<td>
<div align="center"><%=(news.Fields.Item("imagessm").Value)%></div>
</td>
</tr>
<% End If ' end If (news.Fields.Item("images").Value) <> ("") script %>
</table>
</div>
</td>
</tr>
</table>
</td>
<td valign="top" height="44" width="46" bgcolor="#999999" background="images/BG020.jpg">
</td>
</tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
news.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -