📄 welcome.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<% Response.buffer = True %>
<!-- VSS generated file data
$Modtime: 10/24/97 12:59p $
$Revision: 74 $
$Workfile: welcome.asp $
-->
<%
On Error Resume Next
Dim cm, f, strFull1, strDisplay1, isFiles, choice, _
webDirList1, pubMdbList1, refreshRec, FileSystem, _
defasp, action, dropStr, choice1, sync, runWiz, _
wizWarning, wizButton, wizPic, wizFormPic, noCache
%>
<!-- #include file="localize.inc" -->
<%
'----------Query strings-------------------------
dropStr=request.querystring("dropStr")
dropStr=Replace(dropStr,chr(34),"")
choice=request.form("Action")
choice1=request.querystring("Action")
If choice = "" Then
choice = choice1
End If
If choice = "" Then
choice = "Welcome"
action = "Add"
End If
sync = request.form("sync")
If sync <> "" Then
Myinfo.sync = sync
End If
If Myinfo.sync = 1 Then
updateVar
End If
runWiz = Myinfo.ranWizard
'runWiz = "0"
Sub updateVar
isFiles = 0
defasp = 0
action = ""
Myinfo.insRec = 0
Myinfo.updRec = 0
Myinfo.sync = 1
Myinfo.publish = 0
Myinfo.descrip = ""
Myinfo.Showtext = 0
Myinfo.numRecords = 0
Myinfo.addDisplay = 0
Myinfo.Width = 0
Myinfo.strFull = ""
Myinfo.strDisplay = ""
End Sub
'----------Opening Syncronization of Files--------
setSystemObj
setConnObj
ChkRunWiz
If Myinfo.sync = 1 Then
readPublish
readWebPub
addNewFiles
removeFiles
updateStrings
sendUser
End If
If dropStr <> "" Then
choice="Add"
Myinfo.publish = -1
Myinfo.dropStr = dropStr
End If
%>
<!-- #include file="welcome.inc" -->
<% Select Case choice%>
<% Case "Welcome" %>
<HTML>
<HEAD>
<%=noCache%>
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub chkRunWizard
runWiz = "<%=runWiz%>"
If runWiz = "-1" Then
frmWiz2.StartBTN.disabled = "False"
Else
frmWiz2.StartBTN.disabled = "True"
End If
End Sub
</SCRIPT>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="chkRunWizard">
<TABLE BORDER=0 WIDTH="100%" CELLPADDING=1 CELLSPACING=1>
<TR>
<TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="20%">
</TD>
<TD valign="top" Width="150" Height="175">
<FORM NAME=frmWiz1 METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=HIDDEN NAME="Action" VALUE="<%=action%>">
<INPUT TYPE=HIDDEN NAME="sync" VALUE=1>
<%=wizFormPic%>
</FORM>
<%=wizPic%>
</TD>
<TD>
<FONT style="font-family:宋体; font-size:9pt">
<%=locWelcomeInstr1%><%=locWelcomeInstr2%></FONT>
<P>
<CENTER>
<FORM NAME=frmWiz2 METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=HIDDEN NAME="Action" VALUE="<%=action%>">
<INPUT TYPE=HIDDEN NAME="sync" VALUE=1>
<INPUT TYPE=SUBMIT VALUE=" >> " ID="StartBTN">
</FORM>
</CENTER>
</TD>
</TR>
<TR>
<TD COLSPAN = 3 ALIGN="Center">
<%=wizWarning%><BR>
<%=wizButton%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<% response.flush %>
<% Case "Choose" %>
<HTML>
<HEAD>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=gb2312">
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
Dim RadChoice
RadChoice = "Add"
Sub Add_OnClick
RadChoice = "Add"
testBTN()
End Sub
Sub Remove_OnClick
RadChoice = "Remove"
testBTN()
End Sub
Sub Refresh_OnClick
RadChoice = "Refresh"
testBTN()
End Sub
Sub Change_OnClick
RadChoice = "Change"
testBTN()
End Sub
Sub testBTN()
isFiles = <%=isFiles%>
If isFiles = 0 and RadChoice <> "Add" Then
frmBACK.goNextBTN.disabled = "True"
Else
frmBACK.goNextBTN.disabled = "False"
End If
End Sub
</SCRIPT>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:testBTN()">
<TABLE BORDER=0 WIDTH="100%" CELLPADDING=1 CELLSPACING=1>
<TR>
<TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></Font>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT>
<FONT FACE="宋体" SIZE=3><%=locChooseWhatDo%></FONT>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT>
<BLOCKQUOTE>
<FONT style="font-family:宋体; font-size:9pt"><STRONG>
<FORM NAME=frmCHOOSE METHOD=POST ACTION=WELCOME.ASP>
<BR><INPUT TYPE="RADIO" CHECKED NAME="ACTION" VALUE="Add" ID="Add"><%=locChooseAddrad%>
<BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Remove" ID="Remove"><%=locChooseRemoverad%>
<BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Refresh" ID="Refresh"><%=locChooseRefreshrad%>
<BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Change" ID="Change"><%=locChooseUpdaterad%><p>
</FORM>
</STRONG>
</FONT>
</BLOCKQUOTE>
</TD>
</TR>
<TR>
<TD ALIGN=RIGHT>
<FONT style="font-family:宋体; font-size:9pt"><STRONG>
<FORM NAME=frmBACK METHOD=POST ACTION=WELCOME.ASP>
<INPUT TYPE=BUTTON VALUE="<<" onClick="JavaScript:frmBACK.submit();">
<INPUT ID=goNextBTN TYPE=BUTTON VALUE=">>" onClick="VBScript:frmChoose.Submit">
</FORM>
</STRONG>
</FONT>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<% response.flush %>
<%Case "Add"
Dim Publish, add, apage, addStr, delStr
'----------Query strings-------------------------
addStr = request.querystring("addStr")
If addStr <> "" Then 'add new files
Choice = "ADD"
dropStr = dropStr + addStr
End If
Myinfo.ShowText = 0
Myinfo.addDisplay = 0
publish = Myinfo.Publish
Myinfo.addDisplay = 1
Myinfo.strDisplay = ""
Myinfo.NumRecords = 0
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Ty<TITLE>PWS Publishing Wizard</TITLE>
<TITLE><%=locPubWiz%></TITLE>
<SCRIPT LANGUAGE="Javascript" SRC="JSBrowser/JSBrowser.js"></SCRIPT>
</HEAD>
<SCRIPT LANGUAGE="Javascript" SRC="JSBrowser/JSBrowser.js"></SCRIPT>
<SCRIPT LANGUAGE="Javascript">
function callBrowser () {
JSBrowser = new BrowserObj(document.frmFILENAME.FILENAME,POP,TFILE,SMALL);
}
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Dim add, semiColon
semiColon = chr(59)
Sub cmdAdd_Click()
Filepath=Trim(document.frmFILENAME.FILENAME.value)
If instr(Filepath, bckSlash) = 0 Then
Alert "<%=locInvalidPath%>"
document.frmFILENAME.FILENAME.value = ""
Exit Sub
End If
If instr(Filepath, period) = 0 Then
Alert "<%=locInvalidPath%>"
document.frmFILENAME.FILENAME.value = ""
Exit Sub
End If
If add < 1 Then
If Filepath="" Then
Alert "<%=locPathRequired%>"
End If
End If
If Filepath <> "" Then
Description=Trim(document.frmDESCRIPTION.DESCRIPTION.value)
If Description = "" Then
Description = " "
End If
If len(FilePath) <> 0 Then
Filepath = Filepath + semiColon
add = add + 1
End If
ifrFILENAME.location.href ="filelist.asp?newDescription=" + Description + "&newFilepath=" + Filepath
document.frmFILENAME.FILENAME.value = ""
document.frmDESCRIPTION.DESCRIPTION.value = ""
frmRemove.btnRemove.disabled ="False"
goNext.goNextBTN.disabled = "False"
End If
end sub
Sub cmdRemove_Click()
items = IFRFILENAME.frmFILENAME.selFILENAME.length
If items <= 2 Then
goNext.goNextBTN.disabled = "True"
frmRemove.btnRemove.disabled ="True"
frmAdd.btnAdd.disabled ="True"
Else
goNext.goNextBTN.disabled = "False"
End If
ifrFILENAME.removeItem()
end sub
Sub Browser()
callBrowser()
frmAdd.btnAdd.disabled ="False"
End Sub
Sub Start()
dropStr = "<%=dropStr%>"
aFile = "<%=isFiles%>"
If dropStr <> "" Then
frmAdd.btnAdd.disabled ="False"
Else
frmAdd.btnAdd.disabled ="True"
End If
goNext.goNextBTN.disabled = "True"
frmRemove.btnRemove.disabled ="True"
If aFile = "" Or aFile = "0" Then
goBack.goBackBTN.disabled = "True"
Else
goBack.goBackBTN.disabled = "False"
End If
End Sub
</SCRIPT>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
<TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
<TR>
<TD BACKGROUND="pubbannr.gif" COLSPAN="5" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=5>
<FONT style="font-family:宋体; font-size:9pt"><%=locAddInstr1%></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="12%">
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmFILENAME">
<%=locPath%>
</TD>
<TD WIDTH="50%">
<INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="<%=Myinfo.dropStr%>" onClick="VBScript:frmAdd.btnAdd.disabled ='False'">
</TD>
<% dropStr = ""
Myinfo.dropStr = ""
%>
<TD COLSPAN=2>
<INPUT TYPE=BUTTON VALUE=" <%=locAddBrowsebtn%> " ONClick="VBScript:Browser()" NAME="hdnBrowser">
</FORM>
</FONT>
</TD>
</TR>
<TR>
<TD>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmDESCRIPTION">
<%=locDescription%>
</TD>
<TD COLSPAN=4>
<INPUT TYPE=TEXT SIZE=38 NAME="DESCRIPTION" VALUE="">
</FORM>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=5>
<FONT style="font-family:宋体; font-size:9pt">
<%=locAddInstr2%>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locAddInstr3%></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=2 VALIGN=TOP ALIGN=LEFT HEIGHT=105>
<IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=349 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
</TD>
<TD COLSPAN=2>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmAdd">
<INPUT ID="btnAdd" TYPE=BUTTON VALUE=" <%=locAddAddbtn%> " ONCLICK="VBScript:cmdAdd_Click()"><P>
</FORM>
<FORM NAME="frmRemove">
<INPUT ID="btnRemove" TYPE=BUTTON VALUE="<%=locAddRemovebtn%>" ONCLICK="VBScript:cmdRemove_Click()"><P>
</FORM>
</STRONG></FONT>
</TD>
</TR>
<TR HEIGHT=15>
<TD COLSPAN=2>
</TD>
<TD ALIGN=RIGHT>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="goBack" METHOD=POST ACTION="welcome.asp">
<INPUT ID="goBackBTN" TYPE="SUBMIT" VALUE="<<" >
<INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
<INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -