📄 welcome.asp
字号:
</FORM>
</FONT>
</TD>
<TD HEIGHT=15>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="goNext" METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=SUBMIT VALUE=">>" ID="goNextBTN">
<INPUT TYPE=HIDDEN VALUE="Finish" NAME="Action">
</FORM>
</FONT>
</TD>
<TR/>
</TABLE>
<% response.flush %>
<%Case "Remove"%>
<% Myinfo.ShowText = 1 %>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub cmdNext_Click()
If document.frmFILENAME.FILENAME.value <> "" Then
IFRFILENAME.remItem()
ELSE
frmNext.goNextBTN.disabled = "True"
End If
End sub
Sub Start()
frmNext.goNextBTN.disabled = "True"
IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
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="4" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locRemoveInstr1%></FONT>
</TD>
</TR>
<TR>
<TD WIDTH="15%">
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmFILENAME">
<%=locFile%>
</TD>
<TD COLSPAN=3 >
<INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="<%=delStr%>">
</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=43 NAME="DESCRIPTION" VALUE="">
</FORM>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locPubFiles%></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
<IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
</TD>
<TD WIDTH="5%">
</TD>
</TR>
<TR HEIGHT=10>
<TD ALIGN=RIGHT COLSPAN=3>
<FONT style="font-family:宋体; font-size:9pt">
<FORM METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
<INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
<INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
</FORM>
</FONT>
</TD>
<TD>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmNext">
<INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" onClick="VBScript:cmdNext_Click()">
</FORM>
</FONT>
</TD>
<TR/>
</TABLE>
<% response.flush %>
<%Case "Refresh"%>
<% Myinfo.ShowText = 1
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub cmdNext_Click()
If document.frmFILENAME.FILENAME.value <> "" Then
IFRFILENAME.refreshItem()
ELSE
frmNext.goNextBTN.disabled = "True"
End If
end sub
Sub Start()
frmNext.goNextBTN.disabled = "True"
IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
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="4" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locRefreshInstr1%></FONT>
</TD>
</TR>
<TD WIDTH="15%">
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmFILENAME">
<%=locFile%>
</TD>
<TD COLSPAN=3 >
<INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
</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=43 NAME="DESCRIPTION" VALUE="">
</FORM>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locPubFiles%></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
<IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
</TD>
<TD WIDTH="5%">
</TD>
</TR>
<TR HEIGHT=10>
<TD ALIGN=RIGHT COLSPAN=3>
<FONT style="font-family:宋体; font-size:9pt">
<FORM METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
<INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
<INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
</FORM>
</FONT>
</TD>
<TD>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmNext">
<INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" ONCLICK="cmdNext_Click()" NAME="btnNEXT">
</FORM>
</FONT>
</TD>
<TR/>
</TABLE>
<% response.flush %>
<%Case "Change"%>
<%
Myinfo.ShowText = 1
Myinfo.Width=1
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub cmdUpdate_Click()
If document.frmFILENAME.FILENAME.value <> "" Then
newDescription = document.frmDESCRIPTION.DESCRIPTION.value
ifrFILENAME.updateItem(newDescription)
document.frmDESCRIPTION.DESCRIPTION.value = ""
document.frmFILENAME.FILENAME.value = ""
frmNext.goNextBTN.disabled = "False"
frmUpdate.btnUpdate.disabled = "True"
Else
frmNext.goNextBTN.disabled = "True"
End If
End sub
Sub Start()
frmNext.goNextBTN.disabled = "True"
frmUpdate.btnUpdate.disabled = "True"
ifrFILENAME.changeValue()
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"><%=locChangeInstr1%></FONT>
</TD>
</TR>
<TD WIDTH="12%">
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmFILENAME">
<%=locFile%>
</TD>
<TD WIDTH="50%">
<INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
</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="" OnFocus="VBScript:frmUpdate.btnUpdate.disabled = 'False'">
</FORM>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=4>
<FONT style="font-family:宋体; font-size:9pt"><%=locPubFiles%></FONT>
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN=LEFT VALIGN=TOP 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 VALIGN=TOP>
<FONT style="font-family:宋体; font-size:9pt">
<FORM NAME="frmUpdate">
<INPUT ID="btnUpdate" TYPE=BUTTON VALUE=" <%=locChangeUpdatebtn%> " ONCLICK="cmdUpdate_Click()" >
</FORM>
</FONT>
</TD>
</TR>
<TR HEIGHT=15>
<TD COLSPAN=2>
</TD>
<TD ALIGN=RIGHT>
<FONT style="font-family:宋体; font-size:9pt">
<FORM METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
<INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
<INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
</FORM>
</FONT>
</TD>
<TD HEIGHT=15>
<FONT style="font-family:宋体; font-size:9pt"><STRONG>
<FORM NAME="frmNext" METHOD=POST ACTION="welcome.asp">
<INPUT ID="goNextBTN" TYPE=SUBMIT VALUE=">>" "VBScript:document.frmNext.submit" >
<INPUT TYPE=HIDDEN VALUE="Finish" NAME="Action">
</FORM>
</FONT>
</TD>
<TR/>
</TABLE>
</BODY>
</HTML>
<% response.flush %>
<% Case "Finish"
Dim insRec, delRec, updRec, operation, newFileDescription, remRecord, _
neg, negComment, negComment1, negComment2, plurality, nRecords, showNames
'----------Query strings-------------------------
refreshRec=request.querystring("refreshRec")
remRecord = request.querystring("remRecord")
nRecords = request.querystring("nRecords")
'----------Update Page Variables------------------
insRec = Myinfo.insRec
updRec = Myinfo.updRec
operation = ""
neg = ""
negComment = ""
plurality = ""
'------------Call Subs-----------------
If remRecord <> "" Then 'Remove records
remFiles remRecord, nRecords
End If
If insRec = 1 Then 'Add records
insertFiles
End If
If updRec = 1 Then 'Update records
updFiles
End If
If refreshRec <> "" Then 'Refresh records
refreshFiles refreshRec, nRecords
End If
%>
<!-- #include file="finish.inc" -->
<%
Sub resetVar
Myinfo.insRec = 0
Myinfo.updRec = 0
Myinfo.publish = 0
Myinfo.dropStr = ""
Myinfo.descrip = ""
Myinfo.Showtext = 0
Myinfo.numRecords = 0
Myinfo.addDisplay = 0
Myinfo.Width = 0
Myinfo.sync = 1
Myinfo.strFull = ""
Myinfo.strDisplay = ""
End Sub
%>
<HTML>
<HEAD>
<TITLE><%=locPubWiz%></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0">
<TABLE BORDER=0 WIDTH=100% CELLPADDING=1 CELLSPACING=1 HEIGHT=300>
<TR>
<TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
<FONT FACE="宋体" SIZE=5><STRONG>
<%=locPubWiz%>
</STRONG></Font>
</TD>
</TR>
<TR HEIGHT=50>
<TD ALIGN=LEFT>
<IMG SRC='../website/streamer.gif'HEIGHT=175 WIDTH=148>
</TD>
<TD ALIGN=TOP>
<FONT style="font-family:宋体; font-size:9pt">
<%=showNames%> <%=plurality%> <%=operation%>
<P>
<%=negComment1%><P>
<%=negComment2%><P>
</FONT>
</TD>
</TR>
<TR HEIGHT=30>
<TD>
</TD>
<TD ALIGN=RIGHT>
<FONT style="font-family:宋体; font-size:9pt">
<FORM METHOD=POST ACTION="welcome.asp">
<INPUT TYPE=SUBMIT VALUE="<<" NAME="btnReturn">
<INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
<INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<% response.flush %>
<% End Select %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -