📄 opensoft.aspx

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

💻 ASPX

字号:

<link href="/site_css.css" rel="stylesheet" type="text/css">
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data\down.mdb"))
sub page_load(obj as object,e as eventargs)
updatecount()
excute_url()

end sub
sub updatecount()
  dim objcmd as new oledbcommand("updatecount2",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

   catch ex as exception
   response.Write(ex.message)
   finally
   conn.close()   
   end try

end sub
sub excute_url()
   dim url as string
   dim objcmd as new oledbcommand("select soft_url" & request.QueryString("url") & " from soft where soft_id=" & request.QueryString("soft_id"),conn)
	  
   try
   conn.open()
   url=ctype(objcmd.executeScalar,string)
   catch ex as exception
   response.Write(ex.message)
   exit sub
   finally
   conn.close()
   end try
if url<>"" then
   response.Redirect(url)
else
   response.Write("此下载链接为空，请点击[下载1]")
end if
end sub
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -