config.asp

网上售书系统的源代码无偿分享。带来帮助的同时也要上传好东东。

<%


'***********定义环境变量***********
dim cookieName,sessionLife
'前台用户登陆后的cookie群组名
cookieName="Cwj"
'后台登陆Session生命期
sessionLife=40

'***************************子程序*********************************

'************************
'子程序名：信息提示窗口
'功能：信息提示，并作返回或者转向
'参数：
'str 提示字符串
'stype 处理类型:Back 返回 GoUrl 转向 Close 关闭
'url 转向方向
'************************
Sub MsgBox(str,stype,url)
	response.write "<script language=javascript>"
	response.write "alert('"&str&"');"
	select case stype
		case "Back"
			response.write "history.go(-1);"
		case "GoUrl"
			response.write "window.location='"&url&"'"
		case "Close"
			response.write "window.close()"
	end select
	response.write "</script>"
End Sub

'************************
'子程序名：格式化输入字符串
'功能：消除HTML标记
'参数：
'fString 要处理的字符串
'************************
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	'fString = Replace(fString, CHR(32), "&nbsp;")
	HTMLEncode2 = fString
end function


function HTMLDecode(fString)
	fString = Replace(fString, "",CHR(13))
	fString = Replace(fString, "</P><P>",CHR(10) & CHR(10))
	fString = Replace(fString, "<BR>",CHR(10))
	'fString = Replace(fString, "&nbsp;"," ")

	HTMLDecode = fString
end function

'************************
'子程序名：测试字符串长度
'功能：返回字符串长度
'参数：
'str 要测试的字符串
'************************

function strlen(str)
	dim p_len,xx
	p_len=0
	strlen=0
	if trim(str)<>"" then
		p_len=len(trim(str))
		for xx=1 to p_len
			if asc(mid(str,xx,1))<0 then
				strlen=int(strlen) + 2
			else
				strlen=int(strlen) + 1
			end if
		next
	end if
end function

function strvalue(str,lennum)
	dim p_num,x,i
	if strlen(str)<=lennum then
		strvalue=str
	else
		p_num=0
		x=0
		do while not p_num > lennum-2
			x=x+1
			if asc(mid(str,x,1))<0 then
				p_num=int(p_num) + 2
			else
				p_num=int(p_num) + 1
			end if
			strvalue=left(trim(str),x)&"..."
		loop
	end if
end function

%>