📄 lib.asp
字号:
End Sub
Private Sub page_back(strValue)
'对数据库修改，删除，添加之后的返回信息
'调用方式 page_back("数据修改成功 返回继续修改")
response.write("<script>alert('"& strValue &"');this.location.href='"& Request.ServerVariables("HTTP_REFERER") &"';</script>")
End Sub
Function WriteErr(Msg,ErrType)
'********************************************************
'函数名:WriteErr(Msg,ErrType)
'功能 ：显示错误对话框
'参数说明：
' Msg --- 显示出错的内容
' ErrType --- 显示类型，"back"：返回 ； "close":关闭
'********************************************************
Select Case ErrType
Case 1
Response.Write("<script language=""javascript"">alert("""&Msg&""");window.history.back(-1);</script>")
Case 2
Response.Write("<script language=""javascript"">alert("""&Msg&""");window.close();</script>")
End Select
Response.End()
End Function
Function ShowClass(ClassTitle,ClassID)
'函数名程:ShowClass
'功能描述:显示分类下拉列表
'传入参数:ClassTitle：分类名 如：Sbe_Product ; ClassID :已选择ID
'使用方法:<select name="select">
' <option>请选择...</option>
' <#Call ShowClass("sbe_product",0)#> '如无已选项则Classid=0
' </select>
SClassID=ClassID
If ClassID="" Then sClassID=0
sClassID=Cint(sClassID)
Set Rs_ShowClass=Server.CreateObject("adodb.recordset")
Sql="Select Depth,ClassName,ID from "&ClassTitle&"_Class order by sequence"
Rs_ShowClass.Open Sql,Conn,1,1
StrShowClass=""
do while not Rs_ShowClass.eof
StrShowClass=StrShowClass&"<option value="""&rs_ShowClass("ID")&""""
if sClassID=rs_ShowClass("id") Then StrshowClass=StrshowClass&" selected"
StrShowClass=StrShowClass&">"
If Rs_ShowClass("Depth")=0 Then
StrShowClass=StrShowClass&"┣"
Else
For ShowClass_i=1 to Rs_ShowClass("Depth")
StrShowClass=StrShowClass&" │"
Next
StrShowClass=left(StrShowClass,len(StrShowClass)-1)&"├"
End If
StrShowClass=StrShowClass&Rs_ShowClass("ClassName")
StrShowClass=StrShowClass&"</option>"
Rs_ShowClass.MoveNext
Loop
Rs_ShowClass.Close
Set Rs_ShowClass=Nothing
Response.Write(StrShowClass)
End Function
Function ShowClassen(ClassTitle,ClassID)
'函数名程:ShowClass
'功能描述:显示分类下拉列表
'传入参数:ClassTitle：分类名 如：Sbe_Product ; ClassID :已选择ID
'使用方法:<select name="select">
' <option>请选择...</option>
' <#Call ShowClass("sbe_product",0)#> '如无已选项则Classid=0
' </select>
SClassID=ClassID
If ClassID="" Then sClassID=0
sClassID=Cint(sClassID)
Set Rs_ShowClass=Server.CreateObject("adodb.recordset")
Sql="Select Depth,En_ClassName,ID from "&ClassTitle&"_Class order by sequence"
Rs_ShowClass.Open Sql,Conn,1,1
StrShowClass=""
do while not Rs_ShowClass.eof
StrShowClass=StrShowClass&"<option value="""&rs_ShowClass("ID")&""""
if sClassID=rs_ShowClass("id") Then StrshowClass=StrshowClass&" selected"
StrShowClass=StrShowClass&">"
If Rs_ShowClass("Depth")=0 Then
StrShowClass=StrShowClass&"┣"
Else
For ShowClass_i=1 to Rs_ShowClass("Depth")
StrShowClass=StrShowClass&" │"
Next
StrShowClass=left(StrShowClass,len(StrShowClass)-1)&"├"
End If
StrShowClass=StrShowClass&Rs_ShowClass("En_ClassName")
StrShowClass=StrShowClass&"</option>"
Rs_ShowClass.MoveNext
Loop
Rs_ShowClass.Close
Set Rs_ShowClass=Nothing
Response.Write(StrShowClass)
End Function
Function ShowClassName(ClassTitle,ClassID)
'函数名程:ShowClassName
'功能描述:返回分类名称
'传入参数:ClassTitle：分类名 如：Sbe_Product ; ClassID :已选择ID
'使用方法: Tname=ShowClassName("sbe_product",tid) '如无已选项则Classid=0
If ClassID="" or ClassID="" Then
ShowClassName=""
ElSE
Set Rs_ShowClassName=Conn.execute("Select top 1 ClassName From "&ClassTitle&"_Class Where ID="&ClassID)
If Not Rs_ShowClassName.Eof Then
ShowClassName=Rs_ShowClassName(0)
Else
ShowClassName=""
End If
Set Rs_ShowClassName=Nothing
End If
End Function
Function ChildrenID(ClassTitle,ClassID)
'函数名程:ChildrenID
'功能描述:返回改分类下所有子分类及子身ID
'传入参数:ClassTitle：分类名 如：Sbe_Product ; ClassID :已选择ID
Set Rs_ChildrenID=Server.CreateObject("adodb.recordset")
sql="Select ChildNum,ParPath from "&ClassTitle&"_Class Where ID="&ClassID
Rs_ChildrenID.Open Sql,Conn,1,1
If Rs_ChildrenID(0)=0 Then
ChildrenID=ClassID
Else
ChildrenIDs=ClassID
Set Rs_ChildrenIDS=Server.CreateObject("Adodb.recordset")
SQL="Select ID From "&ClassTitle&"_Class Where ParPath like '"&Rs_ChildrenID(1)&","&ClassID&"%'"
Rs_ChildrenIDS.Open Sql,Conn,1,1
Do While not Rs_ChildrenIDS.Eof
ChildrenIDs=ChildrenIDs&","&Rs_ChildrenIDS(0)
Rs_ChildrenIDS.movenext
loop
Rs_ChildrenIDS.close
set Rs_ChildrenIDS=Nothing
ChildrenID=ChildrenIDs
End If
Rs_ChildrenID.Close
Set Rs_ChildrenID=Nothing
End Function
Private Function str_id(parid,tablename)
'=====================================================
'函数名程:str_id
'功能描述:指定ID的所有儿子,孙子,重孙子的ID字段组
'传入参数:parid：分类id ; tablename :要查询的表单名
'使用方法: response.write str_id(parid,tablename)
'======================================================
parid=parid
tablename=tablename
str=parid&","
Set oRs=Conn.Execute("select ID,parID from "& tablename &" where parID="& parid &" order by id asc")
If (oRs.eof and oRs.bof) Then
str=parid
Else
do while not oRs.eof
str=str&","&str_ID(oRs("id"),tablename)
oRs.Movenext
Loop
End IF
IF instr(str,",,")>0 Then
str=replace(str,",,",",")
Else
str=str
End IF
str_id=str
oRS.Close:set oRs=Nothing
End Function
Function FormatDate(FormatStr, CurDateTime)
Dim sTemp,YYYY,YY,MM,DD,HH,mmm,SS
sTemp = FormatStr
If IsDate(CurDateTime) Then
YYYY = Year(CurDateTime)
YY = Mid(Year(CurDateTime),3,2)
MM = Month(CurDateTime)
If CInt(MM) < 10 Then MM = "0"&MM
DD = Day(CurDateTime)
If CInt(DD) < 10 Then DD = "0"&DD
HH = Hour(CurDateTime)
If CInt(HH) < 10 Then HH = "0"&DD
mmm = Minute(CurDateTime)+1
If CInt(mmm) < 10 Then mmm = "0"&mmm
SS = Second(CurDateTime)
If CInt(SS) < 10 Then SS = "0"&SS
sTemp = Replace(Replace(Replace(Replace(Replace(Replace(Replace(sTemp,"YYYY",YYYY),"YY",YY),"MM",MM),"DD",DD),"HH",HH),"mm",mmm),"SS",SS)
End If
If IsDate(sTemp) Then
FormatDate = sTemp
Else
FormatDate = CurDateTime
End If
End Function
'视频播放器
Sub SelPlay(strUrl,strWidth,StrHeight)
Dim Exts,isExt
If strUrl <> "" Then
isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1))
Else
isExt = ""
End If
Exts = "avi,wmv,asf,mov,rm,ra,ram,mpg"
If Instr(Exts,isExt)=0 Then
Response.write "非法视频文件"
Else
Select Case isExt
Case "avi","wmv","asf","mov"
Response.write "<EMBED id=MediaPlayer src="&strUrl&" width="&strWidth&" height="&strHeight&" loop=""false"" autostart=""true""></EMBED>"
Case "mov","rm","ra","ram"
Response.Write "<OBJECT height="&strHeight&" width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"
Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"
Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""9525"">"
Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""-1"">"
Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"
Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"
Response.Write "<PARAM NAME=""SRC"" VALUE="""&strUrl&""">"
Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ImageWindow"">"
Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"
Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"
Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"
Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"
Response.Write "</OBJECT>"
Response.Write "<BR>"
Response.Write "<OBJECT height=32 width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"
Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"
Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""847"">"
Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""0"">"
Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"
Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"
Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ControlPanel,StatusBar"">"
Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"
Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"
Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"
Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"
Response.Write "</OBJECT>"
End Select
End If
End Sub
'公司名称
webname="山东乳山工艺品有限责任公司"
en_webname="RUSHANGONGYIPIN GROUP"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -