📄 conn.asp

📁 电子商城代码
💻 ASP
字号:
<%@ LANGUAGE = VBScript codepage=65001%>
<!--#include file="../include/dbname.asp"-->
<!--#include file="inc/function.asp"-->
<%
response.charset="UTF-8"
session.codepage=65001
lanname1="Chinese"
lang="中文"
lanmoney1="人民币"
on error resume next
session.codepage=65001
session.timeout=60   'session过期时间为60分钟
Dim Startime
Dim SqlNowString
Dim Conn,Db,MyDbPath,IsSqlDataBase
Startime = Timer()
IsSqlDataBase = "0"
MyDbPath = ""
if IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
Else
Db = "../database/"&dbname&""
SqlNowString = "Now()"
End If
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
	End If
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "Error!Please check the data!"
		Response.End
	End If

	call safeurl()
////////////////////////////////////////////////////////////////////////////////////////////////

admin_Name=Session("admin_Name")
flag=Session("flag")
Response.Cookies("admin_Name")=admin_Name
Response.Cookies("flag")=flag
if admin_Name="" or flag="" then
        admin_Name=Request.Cookies("admin_Name")
        flag=Request.Cookies("flag")
end     If
copy="56770 Eshop Version 4.0.0 免费版"
///////////////////////////////////////////////////////////////////////////////////////////////
sub safeurl
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if  mid(server_v1,8,len(server_v2))<>server_v2  then
response.write  "<br><br><center><table  border=1  cellpadding=20  bordercolor=black  bgcolor=#EEEEEE  width=450>"
response.write  "<tr><td  style='font:9pt Verdana' align='center'>"
response.write  "提交的路径有误，禁止从站点外部提交数据！"
response.write  "</td></tr></table></center>"
response.end
end if
end sub

sub adminflag
       response.write"<table border=0 cellspacing=1 cellpadding=0 height=0 align=center width=98% bgcolor=#183789><tr><td>"
       response.write"<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
       response.write"<tr><td height=27 class=classtop align=center>出错啦！</td></tr>"
       response.write"<tr><td height=50 class=classtd>"
       if session("admin_name")<>"" then 
              response.write"<li>管理员没有给您此权限！"
       else
              response.write"<li>您已经超时退出，请<a href=../admin_login.asp target=main><strong>重新登陆</strong></a>！"
       end if 
       response.write"</td></tr>"
       response.write"</table></td></tr></table>"
end sub
%>



<%sub admintop()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Utf-8">
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<body bgcolor="#FFFFCC" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<td height="5"></td>
</tr>
</table>
<script src="inc/admin.js"></script>
<%end sub%>
⌨️ 快捷键说明

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