<%
'
الوظيفة العامة ChkPost()
تعتيم server_v1,server_v2
Chkpost=خطأ
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
إذا كان Mid(server_v1,8,len(server_v2))=server_v2 ثم Chkpost=True
وظيفة النهاية
'المشروبات الساخنة
الوظيفة العامة Createpass()
ديم ران، أنا، الطول
الطول = 16
إنشاء المرور = ""
لأن i=1 إلى LengthNum
عشوائية
ران = CInt(Rnd * 2)
عشوائية
إذا ران = 0 ثم
ران = CInt(Rnd * 25) + 97
Createpass =Createpass& UCase(Chr(Ran))
ElseIf Ran = 1 ثم
ران = CInt(Rnd * 9)
Createpass = Createpass & Ran
ElseIf Ran = 2 إذن
ران = CInt(Rnd * 25) + 97
Createpass =Createpass&Chr(Ran)
نهاية إذا
التالي
وظيفة النهاية
'قم بالتنفيذ
وظيفة العينية
تنفيذ الوظيفة العامة (الأمر)
إذا لم يكن IsObject(Conn) ثم ConnectionDatabase
'مرحبا بكم في متجرنا المفضل
إذا كان InStr(LCase(Command),"dv_admin")>0 واليسار(ScriptName,6)<> "admin_" ثم
الاستجابة.كتابة SaveSQLLOG(الأمر،"")
Command=Replace(LCase(Command),"dv_admin"،"dv<i>"&Chr(95)&"</i>admin")
نهاية إذا
إذا كان IsDeBug = 0 ثم
على خطأ استئناف التالي
تعيين التنفيذ = Conn.Execute(الأمر)
إذا أخطأت ثم
خطأ. واضح
تعيين كون = لا شيء
Response.Write SaveSQLLOG(Command،" لا داعي للقلق بشأن ما إذا كان الأمر كذلك أم لا conn.asp.把""Const IsDeBug = 0""الإجابة:""Const IsDeBug = 1""")
الاستجابة.النهاية
نهاية إذا
آخر
"أمر الاستجابة. الكتابة و"<br>"
تعيين التنفيذ = Conn.Execute(الأمر)
نهاية إذا
SqlQueryNum = SqlQueryNum+1
وظيفة النهاية
'记录查询错误事件
الوظيفة العامة SaveSQLLOG(sCommand,message)
خافت lConnStr، lConn، ldb، SQL، RS
ldb = "البيانات/DvSQLLOG.mdb"
lConnStr = "الموفر = Microsoft.Jet.OLEDB.4.0؛ مصدر البيانات = "& Server.MapPath(ldb)
تعيين lConn = Server.CreateObject("ADODB.Connection")
lConn.فتح lConnStr
تعيين Rs = Server.CreateObject("adodb.recordset")
Sql = "اختر * من dv_sql_log"
Rs.open SQL، lconn، 1،3
روبية. إضافة جديدة
Rs("ScriptName")=ScriptName
Rs("S_Info")=يسار(sCommand,255)
Rs("ip")=UserTrueIP
تحديث روبية
روبية قريبة
lConn.Execute (SQL)
lConn.Close
تعيين lConn = لا شيء
SaveSQLLOG = message
وظيفة النهاية
'IP 来源
عنوان الوظيفة العامة (SIP)
خافت aConnStr,aConn,adb
خافت str1، str2، str3، str4
رقم خافت
بلد خافت، مدينة
خافت مصلحة الضرائب، SQL
إذا كان IsNumeric(Left(sip,2)) إذن
إذا كان sip = "127.0.0.1" ثم sip = "192.168.0.1"
str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=يسار(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
إذا كان isNumeric(str1)=0 أو isNumeric(str2)=0 أو isNumeric(str3)=0 أو isNumeric(str4)=0 إذن
آخر
الأسطوانات=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
بنك التنمية الآسيوي = "البيانات/ipaddress.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;مصدر البيانات =" & Server.MapPath(adb)
تعيين AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr
sql="اختر أفضل 1 دولة، مدينة من dv_address حيث ip1 <="&num&" و ip2 >="&num&""
تعيين irs=aConn.execute(sql)
إذا irs.EOF و irs.bof ثم
البلد = "亚洲"
المدينة =""
آخر
البلد=ايرس(0)
المدينة=ايرس(1)
نهاية إذا
تعيين irs=لا شيء
تعيين aConn = لا شيء
SqlQueryNum = SqlQueryNum+1
نهاية إذا
العنوان=البلد والمدينة
آخر
العنوان = "未知"
نهاية إذا
وظيفة النهاية
'لا يوجد شيء أفضل من ذلك بكثير.
الوظيفة العامة HTMLEncode(fString)
إذا لم يكن IsNull(fString) إذن
fString = استبدال (fString، ">"، ">")
fString = استبدال (fString، "<"، "<")
fString = Replace(fString, CHR(32), " ") '
fString = Replace(fString, CHR(9), " ") '
fString = استبدال (fString، CHR(34)، """)
fString = Replace(fString, CHR(39), "'") 'الاستبدال
fString = استبدال (fString، CHR(13)، "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = استبدال(fString, CHR(10), "<BR> ")
fString=ChkBadWords(fString)
HTMLEncode = fString
نهاية إذا
وظيفة النهاية
"لا يوجد شيء أفضل من هذا، لا يوجد شيء أفضل من ذلك".
الوظيفة العامة iHTMLEncode(fString)
إذا لم يكن IsNull(fString) إذن
fString = استبدال (fString، ">"، ">")
fString = استبدال (fString، "<"، "<")
fString = استبدال(fString, CHR(32), " ")
fString = استبدال(fString, CHR(9), " ")
fString = استبدال (fString، CHR(34)، """)
fString = استبدال (fString، CHR(39)، "'")
fString = استبدال (fString، CHR(13)، "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = استبدال(fString, CHR(10), "<BR> ")
iHTMLEncode = fString
نهاية إذا
وظيفة النهاية
طول الوظيفة العامة (str)
إذا كان isNull(str) أو Str = "" إذن
الطول = 0
وظيفة الخروج
نهاية إذا
خافت WINNT_CHINESE
WINNT_CHINESE=(لين("例子")=2)
إذا WINNT_CHINESE ثم
خافت ل، ر، ج
خافت ط
ل = لين (شارع)
ر = ل
لأني=1 إلى ل
ج = تصاعدي (منتصف (شارع، ط، 1))
إذا كان c<0 ثم c=c+65536
إذا كان c>255، فإن t=t+1
التالي
طول الطول = ر
آخر
طول الطول = لين (شارع)
نهاية إذا
وظيفة النهاية
الوظيفة العامة ChkBadWords(Str)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
خافت ط
لأني = 0 إلى Ubound(BadWords)
إذا كنت> UBound(rBadWord) ثم
Str = Replace(Str,BadWords(i),"*")
آخر
Str = Replace(Str,BadWords(i),rBadWord(i))
نهاية إذا
التالي
ChkBadWords = Str
وظيفة النهاية
فحص الوظيفة العامة (Str)
إذا Isnull(Str) ثم
CheckStr = ""
وظيفة الخروج
نهاية إذا
CheckStr = استبدال(Str،"'"،''")
وظيفة النهاية
عنوان URL الخاص بموقعنا هو عنوان URL الخاص بنا
احصل على الخاصية Get_ScriptNameUrl()
إذا request.servervariables("SERVER_PORT")="80" إذن
Get_ScriptNameUrl = "http://" & request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),ScriptName"")
آخر
Get_ScriptNameUrl = "http://" & request.servervariables("server_name")&":":&request.servervariables("SERVER_PORT")&replace(lcase(request.servervariables("script_name")),ScriptName"")
نهاية إذا
نهاية الخاصية
'检查Email地址有效性
وظيفة IsValidEmail (البريد الإلكتروني)
أسماء خافتة، اسم، ط، ج
IsValidEmail = صحيح
الأسماء = سبليت (البريد الإلكتروني، "@")
إذا كان UBound(names) <> 1 إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
لكل اسم في الأسماء
إذا لين (الاسم) <= 0 ثم
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
لأني = 1 إلى لين (الاسم)
ج = Lcase(منتصف(الاسم، ط، 1))
إذا كان InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 وليس IsNumeric(c) إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
التالي
إذا اليسار (الاسم، 1) = "." أو اليمين (الاسم، 1) = "." ثم
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
التالي
إذا InStr(names(1), ".") <= 0 إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
i = Len(names(1)) - InStrRev(names(1), ".")
إذا كنت <> 2 وأنا <> 3 إذن
IsValidEmail = خطأ
وظيفة الخروج
نهاية إذا
إذا InStr(email, "..") > 0 إذن
IsValidEmail = خطأ
نهاية إذا كانت
وظيفة النهاية
strLength (str)
عند حدوث خطأ في الاستئناف التالي
خافت WINNT_CHINESE
WINNT_CHINESE = (لين("论坛")=2)
إذا WINNT_CHINESE ذلك الحين
خافت ل، ر، ج
خافت أنا
ل = لين (شارع)
ر = ل
لأني = 1 إلى ل
ج = تصاعدي (منتصف (شارع، ط، 1))
إذا كان c<0 ثم c=c+65536
إذا ج> 255 ثم
ر=ر+1
نهاية إذا
التالي
طول الطول = ر
آخر
طول الطول = لين (شارع)
نهاية إذا
إذا كان err.number<>0 ثم err.clear
وظيفة النهاية
وظيفة CutStr(str,strlen)
خافت ل، ر، ج
ل = لين (شارع)
ر = 0
لأني = 1 إلى ل
ج = القيمة المطلقة (تصاعدي (منتصف (شارع، ط، 1)))
إذا ج> 255 ثم
ر=ر+2
آخر
ر=ر+1
نهاية إذا
إذا t>=strlen ثم
CutStr=left(str,i)&"..."
الخروج ل
آخر
CutStr=str
نهاية إذا
التالي
CutStr=replace(cutStr,chr(10),"")
وظيفة النهاية
وظيفة Fixjs(Str)
إذا كانت Str <>"" إذن
str = استبدال(str،""، "\")
Str = استبدال (str، chr(34)، """")
Str = استبدال (str، chr(39)،"'")
Str = استبدال (str، chr(13)، "n")
Str = استبدال (str، chr(10)، "r")
str = استبدال(str،"'"، "'")
نهاية إذا
fixjs=Str
وظيفة النهاية
الدالة enfixjs(Str)
إذا كانت Str <>"" إذن
Str = استبدال (str، "'"، "'")
Str = استبدال(str،"""" ، chr(34))
Str = استبدال (str، "'"،chr(39))
Str = استبدال (str، "r"، chr (10))
Str = استبدال (str، "n"، chr(13))
Str = استبدال(str،"\"، "")
نهاية إذا
enfixjs=Str
وظيفة النهاية
فئة Cls_Browser
المتصفح العام، الإصدار، النظام الأساسي
فئة فرعية خاصة_Initialize()
المتصفح = "غير معروف"
الإصدار = "غير معروف"
منصة = "غير معروف"
وكيل خافت
Agent=Request.ServerVariables("HTTP_USER_AGENT")
الوكيل = سبليت (الوكيل، "؛")
إذا كان InStr(Agent(1);"MSIE")>0 إذن
المتصفح = "مايكروسوفت إنترنت إكسبلورر"
version=Trim(Left(Replace(Agent(1),"MSIE"،""),6))
ElseIf InStr(Agent(4);"Netscape")>0 ثم
المتصفح = "نتسكيب"
خافت تمبستر
tmpstr=Split(Agent(4),"/")
الإصدار=tmpstr(UBound(tmpstr))
نهاية إذا
إذا كان InStr(Agent(2);"NT 5.2")>0 إذن
النظام الأساسي = "ويندوز 2003"
ElseIf InStr(Agent(2);"NT 5.1")>0 ثم
النظام الأساسي = "ويندوز إكس بي"
ElseIf InStr(Agent(2);"NT 5.0")>0 ثم
منصة = "ويندوز 2000"
ElseIf InStr(Agent(2);"9x")>0 ثم
منصة = "ويندوز مي"
ElseIf InStr(Agent(2);"98")>0 ثم
النظام الأساسي = "ويندوز 98"
ElseIf InStr(Agent(2);"95")>0 ثم
منصة = "ويندوز 95"
نهاية إذا
وكيل
إذا كان المتصفح = "غير معروف" أو الإصدار = "غير معروف" أو النظام الأساسي = "غير معروف" إذن
Agent=Dvbbs.checkStr(Request.ServerVariables("HTTP_USER_AGENT"))
خافت lConnStr,lConn,ldb
ldb = "البيانات/DvSQLLOG.mdb"
lConnStr = "الموفر = Microsoft.Jet.OLEDB.4.0؛ مصدر البيانات = "& Server.MapPath(ldb)
تعيين lConn = Server.CreateObject("ADODB.Connection")
lConn.فتح lConnStr
lConn.Execute("أدخل في قيم [Agent](UserAgent)('" & Agent & "')")
lConn.Close
تعيين lConn = لا شيء
نهاية إذا
نهاية الفرعية
نهاية الفئة
%>