📄 publish.asp
字号:
rs("CatalogName")=splCatalogID(2)
rs("Content")=request.form("content")
rs("Images")=checkstr(trim(request.form("Images")))
rs("SoftViewImg")=checkstr(Trim(Request.Form("SoftViewImg")))
rs("SoftFrom")=checkstr(trim(request.form("SoftFrom")))
rs("Email")=checkstr(trim(request.form("Email")))
rs("RegURL")=checkstr(trim(request.form("RegURL")))
rs("LicenceType")=trim(request.form("LicenceType"))
if Trim(Request.Form("SizeUnit"))="MB" then
rs("SoftSize")=trim(request.form("SoftSize"))*1024
else
rs("SoftSize")=trim(request.form("SoftSize"))
end if
rs("Language")=Trim(Request.Form("Language"))
rs("System")=trim(request.form("System"))
rs("Rank")=trim(request.form("Rank"))
rs("SoftType")=trim(request.form("SoftType"))
if Request.Form("isCommend")=1 then rs("isCommend")=1 else rs("isCommend")=0 end if
rs("isActive")=0
rs("SoftTime")=Now()
rs("Address1")=checkstr(trim(request.form("Address1")))
rs("Address2")=checkstr(trim(request.form("Address2")))
rs("Address3")=checkstr(trim(request.form("Address3")))
rs.update
rs.close
msgtitle="发布软件成功"
msginfo=msginfo&"<li><a href=""Publish.asp"">接着继续添加新软件</a></li>"
msginfo=msginfo&"<li><a href=""Publish.asp?CatalogID="&splCatalogID(1)&""">继续在分类："&splCatalogID(2)&"中添加新软件</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub myform(isEdit)
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="myform" method="post" action="Publish.asp" onSubmit="return Juge(this)" >
<%
if isedit then
set rse=server.createobject("adodb.recordset")
rse.open "select * from SoftDown_updata where SoftID=" & cstr(request("SoftID")),conn,1,1
pubTitle="软件作品入库操作"
else
pubTitle="发布软件"
end if %>
<input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
<%If isedit then%>
<input type="Hidden" name="SoftID" value='<%=cstr(request("SoftID"))%>'>
<%End If%>
<tr bgcolor="#CCCCCC">
<td colspan="4" align="center"><b><%=pubTitle%></b></td>
</tr>
<tr bgcolor="#F5F5F5">
<td>软件名称：</td>
<td> <input type="text" name="SoftName" size="28" value='<% if isedit then
response.write trim(rse("SoftName"))
end if %>' maxlength="50">
<font color="#FF0000">！</font> </td>
<td>软件版本：</td>
<td> <input type="text" name="SoftVer" maxlength="40" size="25" value='<% if isedit then
response.write trim(rse("SoftVer"))
end if %>'> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td bgcolor="#F5F5F5">所属分类：</td>
<td> <select name="catalogid">
<option value="">↓请选择栏目↓</option>
<%
set crs = server.CreateObject ("Adodb.recordset")
sql = "select * from SoftDown_Catalog order by rootid,orders"
crs.open sql,conn,1,1
do while not crs.eof
if crs("depth")=0 then
Response.Write "<option value="""" "
else
Response.Write "<option value="""&crs("RootID")&","&crs("CatalogID")&","&crs("CatalogName")&""" "
end if
if Trim(Request("CatalogID"))<>"" then
if clng(request("CatalogID"))=crs("CatalogID") then Response.Write "selected"
end if
if isedit then
if rse("CatalogID")=crs("CatalogID") then Response.Write "selected"
end if
Response.Write ">"
if crs("depth") =1 then Response.Write " ├ "
if crs("depth") >1 then
for i=2 to crs("depth")
Response.Write " │"
next
Response.Write " ├ "
end if
Response.Write crs("CatalogName")&"</option>" & vbcrlf
crs.MoveNext
loop
crs.Close
set crs=nothing
%>
</select> <font color="#FF0000">！</font> </td>
<td>软件大小：</td>
<td> <input type="text" name="SoftSize" size="14" maxlength="10" value="<% if isedit then response.write trim(rse("SoftSize"))%>">
<input name="SizeUnit" type="radio" value="KB" checked>
KB
<input type="radio" name="SizeUnit" value="MB">
MB <font color="#FF0000">！</font> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td nowrap>运行环境：</td>
<td colspan="3">
<%
for i = 0 to ubound(System)
response.write "<input type=""checkbox"" name=""System"" value="""&trim(System(i))&""" "
if isedit then
if instr(rse("System"),trim(System(i)))>0 then
response.write "checked"
end if
elseif instr(default_system,trim(System(i)))>0 then
response.write "checked"
end if
response.write ">"&trim(System(i))&" "
if i=5 then response.write "<br>"
next %>
<font color="#FF0000">！</font> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" nowrap>软件等级：</td>
<td height="25" colspan="3">
<% for i = 1 to System_Setting(8)
Response.Write "<input type=""radio"" name=""Rank"" value="""&i&""""
if isedit then
if i=rse("Rank") then Response.Write " checked"
else
if i=System_Setting(8)\2+1 then Response.Write " checked"
end if
Response.Write ">"&i&"星 " & vbcrlf
next %>
<font color="#FF0000"> ！</font> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" nowrap>授权类型：</td>
<td height="25" colspan="3">
<% for i = 0 to ubound(LicenceType)
Response.Write "<input type=""radio"" name=""LicenceType"" value="""&LicenceType(i)&""""
if isedit then
if LicenceType(i)=rse("LicenceType") then Response.Write " checked"
else
if i=0 then Response.Write " checked"
end if
Response.Write ">"&LicenceType(i)&"" & vbcrlf
next %>
<font color="#FF0000">！</font> </td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" nowrap>软件类型：</td>
<td height="25" colspan="3">
<% for i = 0 to ubound(SoftType)
Response.Write "<input type=""radio"" name=""SoftType"" value="""&SoftType(i)&""""
if isedit then
if SoftType(i)=rse("SoftType") then Response.Write " checked"
else
if i=0 then Response.Write " checked"
end if
Response.Write ">"&SoftType(i)&"" & vbcrlf
next %>
<font color="#FF0000">！</font></td>
</tr>
<tr bgcolor="#F5F5F5">
<td height="25" nowrap>软件语言：</td>
<td height="25" colspan="3">
<% for i = 0 to ubound(Language)
Response.Write "<input type=""radio"" name=""Language"" value="""&Language(i)&""""
if isedit then
if Language(i)=rse("Language") then Response.Write " checked"
else
if i=0 then Response.Write " checked"
end if
Response.Write ">"&Language(i)&"" & vbcrlf
next %>
<font color="#FF0000">！</font></td>
</tr>
<tr bgcolor="#F5F5F5">
<td nowrap>作者网址：</td>
<td> <input type="text" name="SoftFrom" size="25" maxlength="100" value="<% if isedit then response.write trim(rse("SoftFrom")) %>">
</td>
<td>作者邮箱：</td>
<td> <input type="text" name="Email" size="25" maxlength="100" value="<% if isedit then response.write trim(rse("Email"))%>">
</td>
</tr>
<tr bgcolor="#F5F5F5">
<td nowrap>注册网址：</td>
<td colspan="3"> <input type="text" name="RegURL" size="38" value="<% if isedit then response.write trim(rse("RegURL"))%>">
共享软件注册的网址链接</td>
</tr>
<tr bgcolor="#F5F5F5">
<td nowrap>界面预览： </td>
<td colspan="3"> <input type="text" name="SoftViewImg" size="38" value="<% if isedit then response.write trim(rse("SoftViewImg")) %>">
软件界面预览图片，大小不定</td>
</tr>
<tr bgcolor="#F5F5F5">
<td nowrap>LOGO图片：</td>
<td colspan="3"> <input type="text" name="images" size="38" value="<% if isedit then response.write trim(rse("images")) %>">
软件的缩略图，建议大小为：135×120 px</td>
</tr>
<tr bgcolor="#F5F5F5">
<td>UBB标签：</td>
<td colspan="3"> <img onclick=Cbold() src="pic/bold.gif" width="22" height="22" alt="粗体" border="0"><img onclick=Citalic() src="pic/italicize.gif" width="23" height="22" alt="斜体" border="0"><img onclick=Cunder() src="pic/underline.gif" width="23" height="22" alt="下划线" border="0"><img onclick=Ccenter() src="pic/center.gif" width="22" height="22" alt="居中" border="0"><img onclick=Curl() src="pic/url1.gif" width="22" height="22" alt="超级连接" border="0"><img onclick=Cemail() src="pic/email1.gif" width="23" height="22" alt="Email连接" border="0"><img onclick=Cimage() src="pic/image.gif" width="23" height="22" alt="图片" border="0"><img onclick=Cswf() src="pic/swf.gif" width="23" height="22" alt="Flash图片" border="0"><img onclick=Cdir() src="pic/Shockwave.gif" width="23" height="22" alt="Shockwave文件" border="0"><img onclick=Crm() src="pic/rm.gif" width="23" height="22" alt="realplay视频文件" border="0"><img onclick=Cwmv() src="pic/mp.gif" width="23" height="22" alt="Media Player视频文件" border="0"><img onclick=Cmov() src="pic/qt.gif" width="23" height="22" alt="QuickTime视频文件" border="0"><img onclick=Cquote() src="pic/quote1.gif" width="23" height="22" alt="引用" border="0"><IMG onclick=Cfly() height=22 alt=飞行字 src="pic/fly.gif" width=23 border=0><IMG onclick=Cmarquee() height=22 alt=移动字 src="pic/move.gif" width=23 border=0><IMG onclick=Cguang() height=22 alt=发光字 src="pic/glow.gif" width=23 border=0><IMG onclick=Cying() height=22 alt=阴影字 src="pic/shadow.gif" width=23 border=0>
<br>
字体：
<SELECT onchange="if(this.options[this.selectedIndex].value!=''){showfont(this.options[this.selectedIndex].value);this.options[0].selected=true;}else {this.selectedIndex=0;}" name=font>
<option value="宋体" selected>宋体</option>
<option value="楷体_GB2312">楷体</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<OPTION value="Andale Mono">Andale Mono</OPTION>
<OPTION value=Arial>Arial</OPTION>
<OPTION value="Arial Black">Arial Black</OPTION>
<OPTION value="Book Antiqua">Book Antiqua</OPTION>
<OPTION value="Century Gothic">Century Gothic</OPTION>
<OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
<OPTION value=Georgia>Georgia</OPTION>
<OPTION value=Impact>Impact</OPTION>
<OPTION value=Tahoma>Tahoma</OPTION>
<OPTION value="Times New Roman" >Times New Roman</OPTION>
<OPTION value="Trebuchet MS">Trebuchet MS</OPTION>
<OPTION value="Script MT Bold">Script MT Bold</OPTION>
<OPTION value=Stencil>Stencil</OPTION>
<OPTION value=Verdana>Verdana</OPTION>
<OPTION value="Lucida Console">Lucida Console</OPTION>
</SELECT>
字体大小
<select name="size" onChange="if(this.options[this.selectedIndex].value!=''){showsize(this.options[this.selectedIndex].value);this.options[0].selected=true;}else {this.selectedIndex=0;}">
<option value="1">1</option>
<option value="2">2</option>
<option value="3" selected>3</option>
<option value="4">4</option>
</select> <font face="宋体" color=#333333>颜色：</font> <SELECT onchange="if(this.options[this.selectedIndex].value!=''){showcolor(this.options[this.selectedIndex].value);this.options[0].selected=true;}else {this.selectedIndex=0;}" name=color>
<option style="background-color:#F0F8FF;color: #F0F8FF" value="#F0F8FF">#F0F8FF</option>
<option style="background-color:#FAEBD7;color: #FAEBD7" value="#FAEBD7">#FAEBD7</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#7FFFD4;color: #7FFFD4" value="#7FFFD4">#7FFFD4</option>
<option style="background-color:#F0FFFF;color: #F0FFFF" value="#F0FFFF">#F0FFFF</option>
<option style="background-color:#F5F5DC;color: #F5F5DC" value="#F5F5DC">#F5F5DC</option>
<option style="background-color:#FFE4C4;color: #FFE4C4" value="#FFE4C4">#FFE4C4</option>
<option style="background-color:#000000;color: #000000" value="#000000">#000000</option>
<option style="background-color:#FFEBCD;color: #FFEBCD" value="#FFEBCD">#FFEBCD</option>
<option style="background-color:#0000FF;color: #0000FF" value="#0000FF">#0000FF</option>
<option style="background-color:#8A2BE2;color: #8A2BE2" value="#8A2BE2">#8A2BE2</option>
<option style="background-color:#A52A2A;color: #A52A2A" value="#A52A2A">#A52A2A</option>
<option style="background-color:#DEB887;color: #DEB887" value="#DEB887">#DEB887</option>
<option style="background-color:#5F9EA0;color: #5F9EA0" value="#5F9EA0">#5F9EA0</option>
<option style="background-color:#7FFF00;color: #7FFF00" value="#7FFF00">#7FFF00</option>
<option style="background-color:#D2691E;color: #D2691E" value="#D2691E">#D2691E</option>
<option style="background-color:#FF7F50;color: #FF7F50" value="#FF7F50">#FF7F50</option>
<option style="background-color:#6495ED;color: #6495ED" value="#6495ED" selected>#6495ED</option>
<option style="background-color:#FFF8DC;color: #FFF8DC" value="#FFF8DC">#FFF8DC</option>
<option style="background-color:#DC143C;color: #DC143C" value="#DC143C">#DC143C</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#00008B;color: #00008B" value="#00008B">#00008B</option>
<option style="background-color:#008B8B;color: #008B8B" value="#008B8B">#008B8B</option>
<option style="background-color:#B8860B;color: #B8860B" value="#B8860B">#B8860B</option>
<option style="background-color:#A9A9A9;color: #A9A9A9" value="#A9A9A9">#A9A9A9</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -