易截截图软件、单文件、免安装、纯绿色、仅160KB

asp数据库连接代码

conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'数据库连接文件
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Password=;"
set conn=server.createobject("ADODB.CONNECTION")
On Error Resume Next
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
%>
<%
'数据库表文件
'全局变量,方便程序的整体转移,这几个变量为核心变量。
dim table,tables,config
table="xinwen_fenlei" '定义分类表单的名称
tables="news" '定义存储数据表单的名称
config="class_config" '定义分类属性表单的名称
picwenzi="www.xx.cn" '定义水印图片的文字
pickuandu=400 '定义缩略图的宽度
picgaodu=400 '定义缩略图的高度
pickuandu_xiao=105 '定义缩略图的宽度
picgaodu_xiao=100 '定义缩略图的高度
sites=""
%>
<%
'网站基本信息显示
set rs_jiben=server.CreateObject("adodb.recordset")
rs_jiben.open "select * from site where id=1",conn,1,1
wznames=rs_jiben("title")
wzmiaoshu=rs_jiben("content")
wzkeys=rs_jiben("keys")
wztop=rs_jiben("top")
wzfoot=rs_jiben("foot")
rs_jiben.close
set rs_jiben=nothing

%>


相关文档:

ASP 编程中 20 个非常有用的例子

1.如何用Asp判断你的网站的虚拟物理路径
答:使用Mappath方法
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
......

asp连接Mssql的方法及常见的错误

asp衔接Mssql的办法及常见的差错
//第一种写法:
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......

Asp常用通用函数之Cookie防乱码

 '函数名:CodeCookie
  '作 用:Cookie防乱码写入时用
  '参 数:str ---- 字符串
  '返回值:整理后的字符串
  '示 例:
  '**************************************************
  Public Function CodeCookie(str)
   If is ......

Asp常用通用函数之生成时间的整数

  '函数名:GetMyTimeNumber()
  '作 用:生成时间的整数
  '参 数:lx ---- 时间整数的类型
  ' lx=0 到分钟 lx=1 到小时 lx=2 到天 lx=3 到月
  '返回值:生成时间的整数值(最小到分钟)
  '示 例:
  '********************************* ......

asp静态生成,伪静态

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configi ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号