📄 new.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/radio.asp" -->
<%
Dim placard
Dim placard_numRows
Set placard = Server.CreateObject("ADODB.Recordset")
placard.ActiveConnection = MM_radio_STRING
placard.Source = "SELECT * FROM placard ORDER BY ID DESC"
placard.CursorType = 0
placard.CursorLocation = 2
placard.LockType = 1
placard.Open()
placard_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 9
Repeat1__index = 0
placard_numRows = placard_numRows + Repeat1__numRows
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), " ")
End Function
</SCRIPT>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/radio.css" type="text/css">
<style type="text/css">
<!--
.style1 {color: #CCCCCC}
.style2 {color: #000000}
a:link {
color: #333333;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" onConTextMenu="event.returnValue=false">
<%
While ((Repeat1__numRows <> 0) AND (NOT placard.EOF))
%>
<tr>
<td>
<table width="114%" height="18" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="68%" height="16" align="left"> <img src="../img/377.gif" width="9" height="9"> <a href=# class="style2" onMouseUp="MM_openBrWindow('placard.asp?id=<%=(placard.Fields.Item("id").Value)%>','','width=410,height=400')"><%=(placard.Fields.Item("标题").Value)%></a></td>
<td width="32%" align="right"><span class="style1"><%=(placard.Fields.Item("时间").Value)%></span></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="../images/dot.gif" height="1"></td>
</tr>
</table>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
placard.MoveNext()
Wend
%>
</body>
</html>
<%
placard.Close()
Set placard = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -