char.asp

游戏网官方WAP站源代码,该WAP站为56GAME.COM参考多家WAP站综合开发而成. 详细使用方法请进BBS.56GAME.COM

<%
function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
	fOTagPos = Instr(1, fString, fOTag, 1)
	fCTagPos = Instr(1, fString, fCTag, 1)
	while (fCTagPos > 0 and fOTagPos > 0)
		fString = replace(fString, fOTag, fROTag, 1, 1, 1)
		fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
		fOTagPos = Instr(1, fString, fOTag, 1)
		fCTagPos = Instr(1, fString, fCTag, 1)
	wend
	doCode = fString
end function

function HTMLEncode(fString)

	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")

	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
	fString = Replace(fString, CHR(10), "<br/>")
	HTMLEncode = fString
end function

function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
	fString = Replace(fString, CHR(10), "<br/>")
	HTMLEncode2 = fString
end function

function UBBCode(strContent)
	on error resume next
	strContent = HTMLEncode(strContent)
	dim objRegExp
	Set objRegExp=new RegExp
	objRegExp.IgnoreCase =true
	objRegExp.Global=True

	objRegExp.Pattern="(\[URL\])(.*)(\[\/URL\])"
	strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$2</a>")

	objRegExp.Pattern="(\[URL=(.*)\])(.*)(\[\/URL\])"
	strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$3</a>")

	objRegExp.Pattern="(\[IMG\])(.*)(\[\/IMG\])"
	strContent=objRegExp.Replace(strContent,"<img src=""$2"" alt='load..'/><br/><a href=""$2"" >点击下载</a>")

	set objRegExp=Nothing
	UBBCode=strContent
end function

public function translate(sourceStr,fieldStr)
rem 处理逻辑表达式的转化问题
  dim  sourceList
  dim resultStr
  dim i,j
  if instr(sourceStr," ")>0 then 
     dim isOperator
     isOperator = true
     sourceList=split(sourceStr)
     '--------------------------------------------------------
     rem Response.Write "num:" & cstr(ubound(sourceList)) & "<br/>"
     for i = 0 to ubound(sourceList)
        rem Response.Write i 
	Select Case ucase(sourceList(i))
	Case "AND","&","和","与"
		resultStr=resultStr & " and "
		isOperator = true
	Case "OR","|","或"
		resultStr=resultStr & " or "
		isOperator = true
	Case "NOT","!","非","！","！"
		resultStr=resultStr & " not "
		isOperator = true
	Case "(","（","（"
		resultStr=resultStr & " ( "
		isOperator = true
	Case ")","）","）"
		resultStr=resultStr & " ) "
		isOperator = true
	Case Else
		if sourceList(i)<>"" then
			if not isOperator then resultStr=resultStr & " and "
			if inStr(sourceList(i),"%") > 0 then
				resultStr=resultStr&" "&fieldStr& " like '" & replace(sourceList(i),"'","''") & "' "
			else
				resultStr=resultStr&" "&fieldStr& " like '%" & replace(sourceList(i),"'","''") & "%' "
			end if
        		isOperator=false
		End if	
	End Select
        rem Response.write resultStr+"<br/>"
     next 
     translate=resultStr
  else '单条件
     if inStr(sourcestr,"%") > 0 then
     	translate=" " & fieldStr & " like '" & replace(sourceStr,"'","''") &"' "
     else
	translate=" " & fieldStr & " like '%" & replace(sourceStr,"'","''") &"%' "
     End if
     rem 前后各加一个空格，免得连sql时忘了加，而出错。
  end if  
end function

function IsValidEmail(email)

dim names, name, i, c

'Check for valid syntax in an email address.

IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if

end function
%>