📄 show1.aspx
字号:
<%@Page language="VB" Debug="True"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<html>
<head>
<title>新闻发布系统</title>
<style type="text/css">
<!--
TABLE { FONT-SIZE: 9pt }
INPUT { FONT-SIZE: 9pt }
SELECT{ FONT-SIZE: 9pt }
BODY { FONT-SIZE: 9pt }
a:link { color: #000099; text-decoration: none}
a:visited { color:#000099; text-decoration: none}
a:hover { color: #990000; text-decoration: underline}
td {font-size:9pt;line-height:13pt;}
.p1 { font-family: "宋体"; font-size: 9pt}
.p2 { }
.p3 { font-family: "宋体"; font-size: 12pt}
-->
</style>
<script Language="VB" runat="server">
Dim ds As DataSet
Dim dr As DataRow
Dim newsid As String
Sub Page_Load(sender As object,e As EventArgs)
Dim MyConnection As SqlConnection
Dim ConnStr,strCon As String
newsid = Request.Params("id")
MyConnection =New SqlConnection("Initial Catalog=mydb;Data Source=(local)\NetSDK;Integrated Security=SSPI;")
MyConnection.Open()
Dim strCom As String= "SELECT biaoti ,zhaizi ,neirong,img,counter ,shijian FROM news where id="+newsid
ds= new DataSet()
Dim myCommand As SqlDataAdapter=new SqlDataAdapter(strCom,MyConnection)
myCommand.Fill(ds,"news")
dr = ds.Tables("news").Rows(0)
strCon ="SELECT counter FROM news WHERE id = "+newsid
Dim myCommand2 As SqlCommand= new SqlCommand(strCon, myConnection)
Dim reader As SqlDataReader
reader = myCommand2.ExecuteReader()
reader.Read()
Dim i As Integer= reader.GetInt32(0)
i+=1
reader.Close()
strCon ="UPDATE news SET counter = "+i.ToString()+" WHERE (id= "+newsid+")"
myCommand2.CommandText = strCon
myCommand2.ExecuteNonQuery()
MyConnection.Close()
End Sub
</script>
</head>
<body bgcolor="#FFFFFF" link="#000000">
<div align="center" class="p2">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">新闻发布系统</div></td>
</tr>
<tr><td> </td>
</tr>
</table>
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr>
<td background="mmto.gif" height="15" width="470">
<table width="500" border="0" cellspacing="0" cellpadding="0" background="mmto.gif">
<tr>
<td background="mmto.gif"> </td>
<td background="mmto.gif">
<div align="right">
<img src="printer.gif" width="16" height="14">
<a href="javascript:window.print()">打印本页</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="470">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td class="p3"><br> <%=dr("biaoti")%></td>
</tr>
<tr align="center">
<td> <div> <hr size="1" width="300">
<font color="#999999">[<%=dr("shijian")%>]</font><br>
</div>
</td>
</tr>
<tr>
<td>
<%
if dr("img")<> "" then
response.write("<img src='" + dr("img") + "' border=0 align='left' width='200' height='200'>")
end if
%><br> <%=dr("neirong")%>
</td>
</tr>
<tr>
<td> <br>
<br> 摘自： <%=dr("zhaizi")%>
<br>
</td>
</tr>
<tr>
<td>
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="17">
<table width="498" border="0" cellspacing="0" cellpadding="0" mmto.gif">
<tr>
<td width="172" background="mmto.gif">本条消息被浏览了
<font color="#FF3333">[<%=dr("Counter")%>]</font>回
</td>
<td width="172" background="mmto.gif">
</td>
<td width="134" background="mmto.gif">
<p align="right"><a href="javascript:window.close()">关闭本窗口 </a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="bian.gif" width="500" height="13"></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -