conn.asp

不是我做的一个留言板

<%
' ###############################################################


MY_DB="../db/class_j8_db.asp"         ' 设置数据库路经

user_cookie_name="j8__name"           ' 设置sesion和cookie 名字的值
                                     
user_cookie_group="j8__group"         ' 设置sesion和cookie  权限的值

user_cookie_gid="j8__gid"             ' 设置班级sesion和cookie

class_cookie="j8"                     ' 设置班级

photopath="../user_uphoto"               ' 设置上传相片的目录

addmsg_money=1                        ' 设置每条留言加积分

addphoto_money=3                      ' 上传一张相片加积分

addpri_money=1                        ' 发一条短信加积分

photomsg_money=1                      ' 相册评论每条积分

openpri_money=1                       ' 查看短信减去积分

win_w=340                             ' 设置弹出窗口的宽度

win_h=540                             ' 设置弹出窗口的高度

win_left=300                          ' 设置弹出窗口的左边距离

win_top=50                            ' 设置弹出窗口的右边距

img_path="../img"                        ' 图片路经


' ###############################################################
' #                                                             #
' #                      以下不需要改动                         #
' #                                                             #
' ###############################################################

on_web="没有记录"                     ' #####################

Time1=Timer
Set conn = Server.CreateObject("ADODB.Connection")
db_conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MY_DB)
conn.open db_conn

Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
                    
	session_cookie_name=response.cookies(class_cookie)(user_cookie_name)
	session_cookie_group=response.cookies(class_cookie)(user_cookie_group)
	session_cookie_gid=response.cookies(class_cookie)(user_cookie_gid)
else
                   
	session_cookie_name=session(user_cookie_name)
	session_cookie_group=session(user_cookie_group)
	session_cookie_gid=session(user_cookie_gid)

end if

%>
<!--#include file="../function/include_function.asp" -->
<%
if indexstyle="" then
'班级信息#########################################
classinfo="select * from classinfo where g_id='" & session_cookie_gid & "'"
set classinfo=conn.execute(classinfo)
	classname=classinfo("class")  
	classname_2=classinfo("classname")       
	url_yes3000=classinfo("url_yes3000")  
	mailto3000=classinfo("mailto3000")  
	csr=classinfo("csr")
	csr_email=classinfo("csrmail")
	mystyleid=classinfo("style")
	myinfo=classinfo("info")
	s_title=classinfo("s_title")
	s_1=classinfo("s_1")
	s_2=classinfo("s_2")
	s_3=classinfo("s_3")
	s_4=classinfo("s_4")
	s_5=classinfo("s_5")
	new_msgpage=cint(classinfo("new_msgpage"))
	new_photopage=cint(classinfo("new_photopage"))
	user_photopage=cint(classinfo("user_photopage"))
	admin_photopage=cint(classinfo("admin_photopage"))
	msg_page=CInt(classinfo("msg_page"))
	photo_page=cint(classinfo("photo_page"))
	primsg_page=cint(classinfo("primsg_page"))
	user_page=cint(classinfo("user_page"))
	admin_userpage=cint(classinfo("admin_userpage"))
	ads=classinfo("ads")
	bg_music=classinfo("bg_music")
	open_fice=classinfo("open_fice")
	reg=classinfo("open_reg")
	clang_id=classinfo("lang")
classinfo.close

   
'#############################################   

ssname=session_cookie_name
'############################################# 
if ssname="" then
           styl=mystyleid
else
user_style="select * from [user] where username='" &ssname & "'and  g_id='"&session_cookie_gid&"'"
set userst=conn.execute(user_style)
	user_styleid=userst("user_style") 
	realname_inof=userst("realname")
	birthday=userst("birthday")
	sex_inof=userst("sex")
	fice_inof=userst("fice")
	email_inof=userst("email")
	mphone_inof=userst("mphone")
	homeaddr_inof=userst("homeaddr")
	postcode_inof=userst("postcode")
	homephone_inof=userst("homephone")
	jobaddr_inof=userst("jobaddr")
	jobphone_inof=userst("jobphone")
	oicq_inof=userst("oicq")
	msn_inof=userst("msn")
	website=userst("website")
	ip_inof=userst("ip")
	momey_inof=userst("momey")
	zw_inof=userst("zw")
	logno_inof=userst("logno")
	user_lid=userst("lang") 
	userst.close
end if

if user_styleid=0 or user_styleid="" then
styl=mystyleid
else
styl=user_styleid
end if

if user_lid="0" or user_lid="" then
l_id=clang_id
else
l_id=user_lid

end if

'############################################# 

'风格设置#############################################
style="select * from style where id="&styl
set style=conn.execute(style)
	style_name=style("name")
	web_bgcolor=style("web_bgcolor")
	web_background=style("web_background")
	top_bg_color=style("top_bg_color")
	top_borderbg_color=style("top_borderbg_color")
	td_bg_color=style("td_bg_color")
	td_bor=style("td_bor")
	tr_bg_color=style("tr_bg_color")        
	table_bg_color=style("table_bg_color")      
	table_borderbg_color=style("table_borderbg_color")  
	list_bg_color=style("list_bg_color")            
	list_borderbg_color=style("list_borderbg_color")    
	test_style_onMouseOver=style("onMouseOverr")      
	test_style_onMouseOut=style("onMouseOut")   
	style_style=style("style")             
	rigth_bor=style("rigth_bor") 
	rigth_bg=style("rigth_bg") 
	foot_m=style("foot_m")
	top_m=style("top_m") 
	web_width=style("web_width") 
style.close
set style=nothing
web_id="../language/"&l_id
web_id=web_id&"/top_foot_all.asp"
call include(web_id)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="description"
content="同学录，J8 ,湛江.小浪石,程序，下载 陈峰 ,asp ,php,cgi .net">
 <meta name="keywords" content="同学录，J8 ,湛江.小浪石,程序，下载，网页, 陈峰 ,asp,php,cgi">
<%
RESPONSE.WRITE "<title>=="&classname&classyes3000&"==</title>"
RESPONSE.WRITE style_style&"</head>"
select case bg_id
 case ""
RESPONSE.WRITE "<body bgcolor='"&web_bgcolor 
RESPONSE.WRITE "' background="&web_background&"/index_bg.gif>"
 case 1
RESPONSE.WRITE "<body bgcolor='"&web_bgcolor&"'>"
case 2
RESPONSE.WRITE "<body>"
 
end select

end if
%>
<FONT STYLE="font-size: 9pt; font-family: "&Euml;&Icirc;&Igrave;&aring;">
<script src="../js/alt.js" type="text/javascript"></script>
</FONT>