?? picnews.asp
字號:
<!--#include file="inc/conn.asp"-->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<html>
<head>
<title>Image News</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="mt_style.css">
</head>
<body>
<%
sql="select top 1 * from Newswygk where firstImageName<>'' and ok=true order by id desc"
set rs=conn.execute(sql)
if not rs.eof then
%>
<table width="103%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="56%" align="center"><div align="right"><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" ><img src="UploadFiles/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></div></td>
<td width="44%" align="center"><div align="left"><a href="shownews.asp?id=<%=rs("id")%>" target="_blank">
<%=cutstr(rs("Content"),80)%></a></div></td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
<%
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>None embody</td></tr>"
end if
rs.close
set conn=nothing
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -