showsoft.aspx

商务网站全部程序.很有借鉴意义

<%@ Page Language="VB" ContentType="text/html"%>
<%@ Register TagPrefix="gb" TagName="top" Src="lib/inctop.ascx" %>
<%@ Register TagPrefix="gb" TagName="footer" Src="lib/incfooter.ascx" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="config.inc"-->

<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/down.mdb"))

dim objcmd as new oledbdataAdapter

dim ds as new dataset("my")

sub page_load(obj as object, e as eventargs) 
if not page.ispostback then
updatecount()
filldatagrid()
filldatagrid2()
fillsort()
filltop1()
filltop2()

end if
end sub
'query method
sub query(Sender As Object, e As EventArgs)
if keyword.value="" then
exit sub
else
server.Transfer("download.aspx?keyword=" & keyword.value & "&select=" & [select].value)
end if
end sub 

sub filldatagrid
    view1.Text="软件详细信息.."

    dim objcmd as new oledbcommand("select * from soft where soft_id=" & request("soft_id"),conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	   	
	dgdata.datasource=objreader
	dgdata.databind()
	
	objreader.close
	objcmd.connection.close()
	catch ex as exception
	   view1.text=ex.message
	end try

end sub

sub filldatagrid2
try
    dgdata2.pagesize=remarkperpage
    dim sql as string="select * from d_remark where soft_id=" & request("soft_id") & " order by remark_id DESC"

    objcmd=new oledbdataAdapter(sql,conn)
    ds.clear()'
    objcmd.fill(ds, "d_remark")

    dgdata2.datasource=ds
	dgdata2.datamember="d_remark"
	dgdata2.databind()
catch ex as exception
    response.Write(ex.message)
end try
end sub

sub fillsort
    dim objcmd as new oledbcommand("select * from d_cat",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	   sort.datasource=objreader
	   sort.databind()
	
	   objreader.close
	   objcmd.connection.close()
	catch ex as exception
	   view1.text=ex.message
	end try
	

end sub

sub filltop1
    topsoftdown.text="下载Top" & topsoftnum
    dim objcmd as new oledbcommand("select top " & topsoftnum & " soft_id,soft_name,soft_catname,soft_rcount,soft_dcount from soft order by soft_dcount desc,soft_id desc",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	downTop.datasource=objreader
	downTop.databind()
	
	objreader.close
	objcmd.connection.close()
	catch ex as exception
	   response.write(ex.message & "for top1")
	end try
	

end sub

sub filltop2
    topsoftupdate.text="更新Top" & newsoft
    dim objcmd as new oledbcommand("select top " & newsoft & " soft_id,soft_name,soft_catname,soft_rcount,soft_dcount from soft order by soft_id desc",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	updateTop.datasource=objreader
	updateTop.databind()
	
	objreader.close
	objcmd.connection.close()
	catch ex as exception
	   response.write(ex.message & "for top2")
	end try
	

end sub

sub insert_remark(obj as object,e as eventargs)
  dim objcmd as new oledbcommand("insert_remark",conn)
      objcmd.commandtype=commandtype.StoredProcedure
		
	  dim objParam as oledbParameter

	  objParam=objcmd.Parameters.add("@soft_id",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("soft_id")
	  
	  objParam=objcmd.Parameters.add("@remarker",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=remarker.value

	  objParam=objcmd.Parameters.add("@marker",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=replace(remark.value,vbcrlf,"<br>")
    try
   conn.open()
   objcmd.executenonquery
   conn.close()
   filldatagrid2()
   remark_info.text=remarker.value & ",您的评论发表成功;谢谢你对本站的关注!"
   catch ex as exception
   remark_info.text=ex.message
   end try
end sub

sub updatecount()
  dim objcmd as new oledbcommand("updatecount",conn)
      objcmd.commandtype=commandtype.StoredProcedure
	 
	  dim objParam as oledbParameter

	  objParam=objcmd.Parameters.add("@soft_id",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("soft_id")
	  
    try
   conn.open()
   objcmd.executenonquery
   conn.close()
   catch ex as exception
   response.Write(ex.message)
   end try
end sub
sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata2.currentpageindex=e.newPageindex
	dgdata2.databind()
	filldatagrid2()
end sub



</script>

<gb:top runat="server"/>
<link href="site_css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table width="960" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td colspan="3" height="10"></td>
  </tr>
  <tr> 
    <td valign="top" width="760"> 
      <div align="center">
        <center>
        <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="96%" id="AutoNumber1">
          <tr>
            <td width="100%" style="border-style: none; border-width: medium">
              <div align="center"><img src="images/banner1.gif" width="469" height="150" border="0"></div></td>
          </tr>
          <tr>
            <td width="100%" style="border-style: none; border-width: medium"></td>
          </tr>
        </table>
        </center>
      </div>
	<form runat="server" >
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td class="chinese"> <br>

<asp:label ID="view1" runat="server"/>
          </td>
        </tr>
      </table>

<asp:Repeater runat="server" ID="dgdata">
<headertemplate>
<table width="92%" border="0" cellspacing="1" bgcolor="#B2B2B2" class="chinese" cellpadding="6" align="center">
</headertemplate>
<itemtemplate>

        <tr>