new.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
dim const_txl_HomeUrl,errstr,txl_username,txl_password,i,page,tmpstr
dim GBL_CHK_TempStr,txlloginerrstr,login_username,login_truename,newid
newid=Request.QueryString("newid")

GBL_CHK_TempStr=""
errstr=""
const_txl_HomeUrl=""
OpenDatabase
login_truename=getmasterusername(login_username) 
SiteHead2 const_txlname&"-最新公告"
call online
Select Case Request.QueryString("action")
	Case "showmeginfo":
		Call showmeginfo
	Case Else:
		Call main
End Select 
CloseDatabase
Call web_end2
Sub main
	Dim rs,sql,pagesize2,ordercount,curpage,orderpagecount
	Dim displaypagenum,bgcolor,basebgcolor,title
	sql="select  * from news order by id desc"
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open sql,conn,1
	displaypagenum=4
	pagesize2=7
	rs.pagesize=pagesize2
	ordercount=rs.recordcount
	curpage=Request.QueryString("page")
	if curpage="" then curpage=1
	orderpagecount=rs.pagecount
%>
 <!-- 最新公告 共<%=rs.recordcount%>条消息  -->
  <br><table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr align="center" bgcolor="#FFFFFF"> 
      <td width="28" class="blu">编号</td>
      <td width="181" class="blu">主题</td>
      <td width="151" class="blu">添加时间 </td>
    </tr>
    <%
		if not rs.eof then
			 rs.absolutePage=curpage
			i=0
			basebgcolor="#F6F4F8"
		While not rs.eof and i<pagesize2
			i=i+1
			if i mod 2=0 then
				bgcolor="#f7f7f7"
			else
				bgcolor="#ffffff"
			end if
			title=rs("title")
			If len(title)>14 then title=left(title,12)&"…"
			title="<font color='"&rs("titlecolor")&"'>"&title&"</font>"
	%>
    <tr align="center" bgcolor="<%=bgcolor%>" onMouseOver="this.bgColor='#f1f1f1'" onMouseOut="this.bgColor='<%=bgcolor%>'"> 
      <td><B><%=i%></B></td>
      <td><a href='?action=showmeginfo&newid=<%=rs("id")%>'  title="点击查看详情,已读"><%=title%></a></td>
      <td><span class="small"><%=rs("adddate")%></span></td>
    </tr>
    <%
			rs.movenext
		Wend
		End if
	%>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td colspan="3"> <%=ShowPage (orderpagecount,orderCount,curPage,PageSize2,"?",displaypagenum)
%></td>
    </tr>
  </table>
  <br>
  <div align="center">
  &nbsp; <a href="javascript:window.location.reload()" title="刷新">【刷新】</a>&nbsp;&nbsp; 
  <a href="javascript:window.close()" title="关闭窗口">【关闭窗口】</a>&nbsp;&nbsp; </div>
  <%
	rs.close
	set rs=nothing
End Sub
%>
<%
function web_end2
	Response.Write "<a name=bottom></a>"&vbcrlf
	Response.Write "<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center' bgcolor='#ffffff'>"&vbcrlf
  	Response.Write "	<tr>"&vbcrlf 
	Response.Write "		<td height=8 background='"&const_txl_HomeUrl&"images/nevb.gif'></td>"&vbcrlf
  	Response.Write "	</tr>"&vbcrlf
  	Response.Write "	<tr>"&vbcrlf 
   	Response.Write "		<td  style='border:#e6e6e6 1px solid;font-size:12px;text-align:center;line-height:1.8;'>"&vbcrlf
    Response.Write 			const_copyright&vbcrlf
    Response.Write 			"<br>"&vbcrlf
    Response.Write "		Copyright &copy;2003 <a href='http://www.81238.net' target='_blank'>81238工作室</a>  Powered by ：<a href=http://www.81238.net/ target=_blank title='Wap影音'><font color=gray style='text-DECORATION: none'>手机Wap影音</font></a>"&vbcrlf
 	Response.Write " 		页面执行时间:" & fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) & "ms"&vbcrlf
    Response.Write "		</td>"&vbcrlf
  	Response.Write "	</tr>"&vbcrlf
	Response.Write "</table>"&vbcrlf
	Response.Write "</BODY>"&vbcrlf
	Response.Write "</HTML>"&vbcrlf
end function
%>

<%Sub showmeginfo
	Dim id,rs
	id=newid
	if not isnumeric(id) then
		Response.write "<center><font style='font-size:12px;color=red' ><br><br>传递非法参数！</font></center>"
		Exit Sub
	end if
	set rs=conn.execute ("select * from news where id="&id)
	If not rs.eof Then
		
%>
<br>
<table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td colspan="2" class="blu"> <B><font color="#FFFFFF">==最新公告==&nbsp;&nbsp;&nbsp;&nbsp;</font></B></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="88" class="tar">公告标题</td>
    <td width="405"><%=rs("title")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td class="tar">公告内容</td>
    <td><%=rs("content")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td class="tar">添加时间</td>
    <td><span class="small"><%=rs("adddate")%></span></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2" align="center"><input type="button" name="button1" onClick="javscript:window.location.href='?'" value="查看全部公告">　
      <input type="button" name="Submit3" value="返　回" onclick="javascript:window.location.href='?'">　
      <input type="button" name="Submit32" value="关闭窗口" onclick="javascript:window.close();">    </td>
  </tr>
</table>
<br>
<%
	End If
	rs.close
	set rs=nothing
End Sub
%>