📄 conn.asp

📁 软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能
💻 ASP
字号:
<%Dim ToUrl,DoWhat,WhatErr
ToUrl=Request.Servervariables("HTTP_REFERER")'自动返回网页地址，默认为上一页
Dim Rs,SqlData,Connstr,Db
'数据库连接字符串，将数据库改名或改变存放路径后在此更改为正确路径即可
Db="data.mdb"
'====================================================================
Connstr="DBQ="+server.mappath(Db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.connection")
On Error Resume Next
Conn.open Connstr
if Err Then
	Set Conn = Nothing
	Response.Write "数据库连接出错，以下是产生这种错误的可能原因及解决方法："&_
	"<LI>conn.asp页面中的数据库连接字符串出错，请检查并修正；</LI>"&_
	"<LI>若连接字符串无误，试着将数据库更换另一个名称或后缀，在conn.asp中做相应修改后重试；</LI>"&_
	"<P>"&_
	err.Clear
	Response.End
End If
Set Rs=Server.CreateObject("ADODB.Recordset")
SqlData="select top 1 * from Config"
Rs.open SqlData,conn,1,1
if Not Rs.eof and Not Rs.eof then
	Dim UpJpgFile,fsize,AbleFileExt,BadWords,BadWords1,LybName,HomePage,KeyWord,Descrip,MainNote,CopyRight
	Dim times,HomePageNO,HotPageNO,ii
	ii=0
	times=8  '允许口令重试次数
	LybName=Rs("LybName")
	HomePage=Rs("HomePage")
	BadWords=Rs("BadWords")
	BadWords1=Rs("BadWords1")
	MainNote=Rs("MainNote")
	UpJpgFile=Rs("UpJpgFile")
	fsize=Rs("fsize")
	AbleFileExt=Rs("AbleFileExt")
	KeyWord=Rs("keyword")
	Descrip=Rs("descrip")
	CopyRight=Rs("copyright")
	HomePageNO=Rs("homepageno")
	HotPageNO=Rs("hotpageno")
Rs.close
EachBadWords=Split(BadWords,"|")
EachBadWords1=Split(BadWords1,"|")
if HomePage="" then	HomePage="?"
end if

function ChkBadWords(fString)'脏话过滤函数（多页面共享）
	For ii=Lbound(EachBadWords) to Ubound(EachBadWords)
		fString=replace(fString,EachBadWords(ii),EachBadWords1(ii))
	Next
	ChkBadWords=fString
end function

sub HeadHtml()'网页头函数（多页面共享）%>
<html>
<head>
<title><%=LybName%>--<%=DoWhat%></title>
	<META content="text/html; charset=gb2312" http-equiv=Content-Type>
	<META content="UltraEdit-32 Professional Text/Hex Editor 10.20" name=generator>
	<META content="<%=KeyWord%>" name=keywords>
	<META content="<%=Descrip%>" name=description>
	<style type="text/css">
	<!--
	body {font-family:宋体;font-size:9pt}
	A:link {text-decoration : none;color=#0F3F30;line-height:16px;font-size:9pt}
	A:visited {text-decoration : none;color=#0F3F30;line-height:16px;font-size:9pt}
	A:hover {text-decoration : underline;color=#006088;line-height:16px;font-size:9pt}
	td,input,textarea {font-family:宋体;line-height:16px;font-size:9pt}
	//-->
	</style>
</head>
<body topmargin="0">
<table width="780" border="1" cellspacing="0" cellpadding="5" align="center" bordercolor="#FFFFFF">
<tr><td align="center" bgcolor="#DEE5EF" height=80 colspan=2><font color="#CCCCCC">●</font><font color="#999999">●</font><font color="#666666">●</font>
<%=LybName & "--" & DoWhat%> <font color="#666666">●</font><font color="#999999">●</font><font color="#CCCCCC">●</font>     
</td></tr><tr><td height=15 colspan=2> </td></tr></table>
<%end sub
sub FootHtml()'网页尾函数（多页面共享）%>
<p align=center> </p>
<table width="780" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td align="center" height=50 bgcolor="#DEE5EF"><br>
<%=CopyRight%></td></tr>
</table></body></html>
<%end sub
sub FounderErr()'信息函数（多页面共享）
%>
<meta http-equiv=refresh content="0;URL=/vip/guest/ok.htm">
<table width="780" border="1" cellspacing="0" cellpadding="5" align="center" bordercolor="#FFFFFF">
<tr bordercolor=#666666><td height=100><%=DoWhat%>，现在进入支付名单...：
<%=WhatErr%>
<LI><a href="/vip/guest/ok.htm">立即进入支付名单</a></LI>
<LI><a href="/vip/guest/ok.htm">进入支付名单</a></LI>
</td></tr></table>
<%end sub

sub islogin()		'管理链接（多页面共享）
	if session("admin")=True then
		response.write "<a href=""admin.asp""><img src=""images/passwd.gif"" border=0 alt=""后台管理""></a> "&_
									 "<a href=""admin.asp?modify=loginout""><img src=""images/loginout.gif"" border=0 alt=""退出登陆""></a> "
	else
		response.write "<a href=""admin.asp""><img src=""images/login.gif"" border=0 alt=""管理登陆""></a> "
	end if
end sub%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -