config.asp

功能介绍： 1、产品入库

<!--#include file="Conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="Fun.asp"-->
<%
'Option Explicit		'要求所有变量必须先定义
response.Expires=-999
Session.Timeout=200
Response.buffer = True'启用缓存
Response.Charset="GB2312"

'变量定义
dim rs,sqlstr,sql,rst


'---------------------
'定义常量
'---------------------
set rs=server.createobject("adodb.recordset")
set rst=server.createobject("adodb.recordset")
webname = "云升进销存管理"
TopicNum = 10


sql="select * from [dx_site]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then		'记录为空
	response.Redirect("DxSetup.asp")
else
	dx_site_name=rs("dx_site_name")
end if
rs.close
webname = dx_site_name&" ---- 云升进销存管理"
'---------------------
'后台显示信息函数
'---------------------
Function ShowErr(ErrStr,Going)
  call pagend()
  if Going="1" then
    Response.Write "<Script>alert('"& ErrStr &"');location.href='javascript:history.go(-1)';</Script>"
  else
    Response.Write "<Script>alert('"& ErrStr &"');location.href='"& Going &"';</Script>"
  end if
  Response.End()
End Function

'---------------------
'字符转换函数
'---------------------
Function HTMLEncode(fString)
  If Not IsNull(fString) Then
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(32), " ")		
	fString = Replace(fString, CHR(34), "&quot;")
	fString = Replace(fString, CHR(39), "&#39;")
	fString = Replace(fString, CHR(9), "&nbsp;")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
	fString = Replace(fString, CHR(10), "<BR> ")
	HTMLEncode = fString
  End If
End Function

'---------------------
'字符转回函数
'---------------------
function HTMLDncode(fString)
  If Not IsNull(fString) Then
    fString = Replace(fString, "&gt;",">" )
    fString = Replace(fString, "&lt;", "<")
    fString = Replace(fString, " ", CHR(32))
    fString = Replace(fString, "&nbsp;", CHR(9))
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "", CHR(13))
    fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10) )
    fString = Replace(fString, "<BR> ",CHR(10) )
    HTMLDncode = fString
  End If
End Function 

'---------------------
'结束组件函数
'---------------------
Function pagend()
  set rs=nothing
  conn.close
  set conn=nothing
End Function

'---------------------
'截取字符函数
'---------------------
Function Jiequ(fString,fNum)
  if len(fString)>cint(fNum) then
  fString=Replacehtml(fString)
    Jiequ=left(fString,cint(fNum)) & "..."
	
  else
    Jiequ=fString
  end if
End Function


'利用正则法则,去掉HTML标记
Public Function Replacehtml(Textstr)
Dim Str,re
Str=Textstr
Str=replace(Str,"&nbsp;","")
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str, "")
Set Re=Nothing
Replacehtml=Str
End Function

'用省略号格式化数据标题（兼容中文字）
'function CutStr(str,strlen,endStr)
function CutStr(str,strlen)
endStr="……"
dim cvSt:cvSt=Str
if cvSt="" then
CutStr=""
exit function
end if

dim l,t,c
cvSt=Replacehtml(cvSt)			'先去掉HTML标记,在计算长度

l=len(cvSt)
t=0
for i=1 to l
c=Abs(Asc(Mid(cvSt,i,1)))
if c>255 then
t=t+2
else t=t+1
end if
if t>=strlen then
cutStr=left(cvSt,i)&endStr
exit for
else cutStr=cvSt
end if
next
cutStr=replace(cutStr,chr(10),"")
cutStr=replace(cutStr,chr(0),"")
end Function
'---------------
'判断是否数字
'---------------
function CheckNum(checkstr)
  if not isnumeric(checkstr) then
    call ShowErr("参数错误","1")
  end if
end function
'---------------------
'判断字符串长度
'---------------------
Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
  if asc(mid(txt,ii,1))<0 or asc(mid(txt,ii,1))>255 then
    y = y + 2
  else
    y = y + 1
  end if
next
CheckStringLength = y
End Function

Sub Come_Url()
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))

if ComeUrl="" then
	response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
	response.end
else
	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
	if mid(ComeUrl,len(cUrl)+1,1)=":" then
		cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
	end if
	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
	if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
		response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
		response.end
	end if
end if
End Sub

Sub PageList()
	if page_now=1 then 
		response.Write("第一页"&vbTab)
	else response.Write("<a href=""?page=1"">第一页</a>"&vbTab)
	end if
	if page_now>1 and rs.pagecount>1 then 
		response.Write("<a href=""?page="&page_now-1&""">上一页</a>"&vbTab)
	else response.Write("上一页"&vbTab)
	end if
	if page_now<rs.pagecount then 
		response.Write("<a href=""?page="&page_now+1&""">下一页</a>"&vbTab)
	else response.Write("下一页"&vbTab)
	end if
	if page_now<>rs.pagecount then 
		response.Write("<a href=""?page="&rs.pagecount&""">尾页</a>"&vbTab)
    else response.Write("尾页"&vbTab)
	end if 
	response.Write("当前第"&page_now&"页 ")
end Sub
%>