
<!--#include file="dataconfig.asp" -->
<%
'0用xxx.jiaonan.net形式
bendi3="127.0.0.1"
'------------------------------------------------------
to_url="0"
'------------------------------------------------------
Dim SqlNow,Conn,My_Url,online_sj,connbbs
If IsSqlDataBase = 1 Then
	SqlNow = GetDate()
Else
	SqlNow = Now()
End If

ConnectionDatabase

Sub ConnectionDatabase
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		Db=db
		'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	End If
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
End Sub
		'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp

		Dbbbs="/bbs/DataBase/bbsxp6.mdb"
		ConnStrbbs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbbbs)
	Set connbbs = Server.CreateObject("ADODB.Connection")
	connbbs.open ConnStrbbs
	If Err Then
		err.Clear
		Set Connbbs = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
		End if
%>


<%
SERVER_url=Request.ServerVariables("SERVER_NAME")
Function shopnet(value)
Dim ParaValue
ParaValue = Trim(Request(value))
If IsNumeric(ParaValue) = True Then
shopnet = ParaValue
Exit Function
ElseIf InStr(LCase(ParaValue), "select ") > 0 Or InStr(LCase(ParaValue), "insert ") > 0 Or InStr(LCase(ParaValue), "delete from") > 0 Or InStr(LCase(ParaValue), "count(") > 0 Or InStr(LCase(ParaValue), "drop table") > 0 Or InStr(LCase(ParaValue), "update ") > 0 Or InStr(LCase(ParaValue), "truncate ") > 0 Or InStr(LCase(ParaValue), "asc(") > 0 Or InStr(LCase(ParaValue), "mid(") > 0 Or InStr(LCase(ParaValue), "char(") > 0 Or InStr(LCase(ParaValue), "xp_cmdshell") > 0 Or InStr(LCase(ParaValue), "exec master") > 0 Or InStr(LCase(ParaValue), "net localgroup administrators") > 0 Or InStr(LCase(ParaValue), " and ") > 0 Or InStr(LCase(ParaValue), "net user") > 0 Or InStr(LCase(ParaValue), " or ") > 0 Or InStr(LCase(ParaValue), "'") > 0 Or InStr(LCase(ParaValue), "''") > 0 Then
Response.Redirect "/note.asp?errid=0"   
Else
shopnet = ParaValue
End If
End Function
Function  closenothing()
conn.close
set conn=nothing
End Function

Function  renzheng()
Select case rz
case 3
Response.Write "&nbsp;<img src=/image/yingyezhizhao.gif width=34 height=20 border=0 align=bottom alt=企业实名认证卖家>"
case 2
Response.Write "&nbsp;<img src=/image/shenfenzheng.gif width=34 height=20 border=0 align=bottom alt=个人实名认证卖家>"
case 1
Response.Write "&nbsp;<img src=/image/shenfenzheng.gif width=34 height=20 border=0 align=bottom alt=个人实名认证买家>"
End Select

End Function
'星级设置
xing1="9"
xing2="50"
xing3="100"
xing4="200"
xing5="500"
xing6="900"
xing7="1800"
xing8="3000"
xing11="49"
xing21="99"
xing31="199"
xing41="499"
xing51="899"
xing6="900"
xing71="1799"
%>
