📄 hotprocmng.asp
字号:
<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
'/////////////////
wxl=request("wxl")
KindId=request("KindId")
%>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<%
if wxl="" then
Query="select * from web_HotProc where PicKind='"&KindId&"'"
set sql=conn.Execute(Query)
if not sql.eof then
ShowAddHtml sql
else
dim sql1(10)
sql1(1)=request("UpFilePath")
ShowAddHtml(sql1)
end if
elseif wxl="Add" then
NUrlName=html(request("NUrlName"))
NUrl=html(request("NUrl"))
NUrlPath=html(request("NUrlPath"))
if NUrlName="00" then KindId="00"
set sql=Server.Createobject("ADODB.Recordset")
if PicId<>"" then
sql.open "select * from web_HotProc where PicId="&PicId,conn,3,2
else
PicId=GetID("select max(PicId)+1 from web_HotProc")
sql.open "select * from web_HotProc where PicId="&PicId,conn,3,2
sql.AddNew
sql("PicId")=PicId
end if
sql("PicKind")=KindId
sql("PicPath")=NUrlPath
sql("PicUrl")=NUrl
sql.update
sql.close
%>
<script language='javascript'>
alert('热点推荐保存成功！');
window.location.href = "prockindmng.asp";
</script>
<%
end if
sub ShowAddHtml(sql)
HtmlHead "新增热点推荐"
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.NUrlPath.value==0) {
window.alert ("请输入图片地址!若是本机文件，请先上传到服务器上"); aa.NUrlPath.focus();return false}
if (aa.NUrl.value=="") {
window.alert ("请输入网址!"); aa.NUrl.focus();return false}
}
//-->
</SCRIPT>
<table border="1" width="650" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<form name="formpic" method="post" action="uploadsave1.asp" enctype="multipart/form-data">
<tr >
<td class="pt1">文件地址:</td>
<td colspan=3>
<input type="file" name="UpFile" class="text2" size="52" value='<%=request("UpFilePath")%>'> <input type='submit' name='submit' value='上传文件'>
<input type='hidden' value='<%=UrlFile&"?KindId="&KindId&"&wxl=ShowHtml&PicId="&PicId%>' name='ReUrl'>
</td>
</tr>
<tr><td colspan=4>注意：只能上传gif、jpg图片或FLASH格式的文件</td></tr>
<tr height=1 bgcolor=#000000><td colspan=4></td></tr>
</form>
<form name="form1" method="post" action="<%=UrlFile%>" onSubmit="return checkvalue()">
<tr >
<td class="pt1">图片地址:</td>
<td colspan=3>
<input type="text" name="NUrlPath" class="text2" size="58" value='<%=UnHtml(sql(1))%>'>
</td>
</tr>
<tr >
<td class="pt1">链接网址:</td>
<td colspan=3>
<input type="text" name="NUrl" class="text2" size="58" value='<%=UnHtml(sql(2))%>'>
</td>
</tr>
<tr >
<td class="pt1">显示位置:</td>
<td colspan=3><input type="checkbox" name="NUrlName" class="text2" size="58" value='00'>显示在主页
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="2" align="center">
<%if PicId<>"" then%>
<input type="submit" value=" 修 改" name="B1" class="submit" style="width:60; height:25;">
<%else%>
<input type="submit" value=" 确 认" name="B1" class="submit" style="width:60; height:25;">
<%end if%>
<input type="reset" value=" 返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back(-1);"></td>
</tr>
<tr>
<td height="6"></td>
</tr>
</table>
<input type=hidden name="wxl" value="Add">
<INPUT TYPE="hidden" Name="KindId" value='<%=KindId%>'>
<input type=hidden name="PicId" value=<%=PicId%>>
</form>
<%
HtmlEnd
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -