conn.asp

简单网站的编写

<%
'Option Explicit
'response.expires=0
'on error resume next

dim strConnString '##连接数据库信息

set my_Conn = Server.CreateObject("ADODB.Connection")
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("data/chat.mdb") & ";uid=admin;PWD=;"
    my_Conn.Open strConnString

dim dbtable_user,dbtable_function        '##数据库结构
    dbtable_user           = "userinfo"                                            '##用户信息库
    dbtable_function       = "function"                                            '##聊天动作库

dim dbfield_function_id,dbfield_function_command,dbfield_function_xiang           '##动作库字段结构

dbfield_function_id    = "id"
dbfield_function_cmd   = "cmd"
dbfield_function_xiang = "xiang"


dim dbfield_user_id,dbfield_user_username,dbfield_user_password                  '##用户信息库字段结构
dim dbfield_user_email,dbfield_user_oicq,dbfield_user_homepage
dim dbfield_user_comefrom,dbfield_user_rate,dbfield_user_ip
dim dbfield_user_lasttime,dbfield_user_sex,dbfield_user_manager

dbfield_user_id        = "id"
dbfield_user_username  = "username"
dbfield_user_password  = "password"
dbfield_user_email     = "d_email"
dbfield_user_oicq      = "d_oicq"
dbfield_user_homepage  = "d_homepage"
dbfield_user_comefrom  = "d_comefrom"
dbfield_user_rate      = "d_rate"
dbfield_user_ip        = "d_ip"
dbfield_user_lasttime  = "d_lasttime"
dbfield_user_sex       = "d_sex"
dbfield_user_manager   = "d_manager"
%>