?? admin_art.asp
字號:
else
rs("cat_id")=catid
end if
if title="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須填寫文章的標題！');history.back(1);</script>")
else
rs("art_title")=title
end if
if keyword="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須填寫文章的關鍵字！');history.back(1);</script>")
else
rs("art_keyword")=keyword
end if
if content="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須填寫文章的內容！');history.back(1);</script>")
else
rs("art_content")=content
end if
rs("isbest")=cint(artisbest)
rs("istop")=cint(artistop)
rs("Grade")=cint(uGrade)
rs("images")=newpic
rs("isimg")=cint(isimg)
rs("points")=cint(points)
rs("tjuser")=tjuser
if cint(artisbest)=1 then
sql="UPDATE [user] SET points = points + 30 where username='"&tjuser&"'"
conn.execute (sql)
end if
if cint(artistop)=1 then
sql="UPDATE [user] SET points = points + 50 where username='"&tjuser&"'"
conn.execute (sql)
end if
if founderr then
call diserror()
response.end
else
rs.update
rs.close
set rs=nothing
response.redirect "admin_art.asp?action=cat"
end if
end if
if request.Form("action")="delart" then
if request.Form("id")="" then
founderr=true
Response.Write("<script language=javascript>alert('你必須指定操作的對象！');history.back(1);</script>")
else
if not isInteger(request.form("id")) then
founderr=true
Response.Write("<script language=javascript>alert('非法的文章id參數。');history.back(1);</script>")
end if
end if
if founderr then
call diserror()
response.End
end if
sql="select * from art where art_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
openadmin
sql="update allcount set articlecount = articlecount - 1"
conn.execute(sql)
response.redirect "admin_art.asp?action=cat"
end if
if request.QueryString("action")="newart" then%>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
img.style.display = "";
advance.innerText="取消圖片文章"
}else{
img.style.display = "none";
advance.innerText="設為圖片文章"
}
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="addnews" method="post" action="">
<tr>
<td class=lanyuss>新增文章</td>
</tr>
<tr>
<td class=lanyuds>文章標題：
<input type="text" name="art_title" size="45" class="textarea"> 添加人：<input type="text" name="tjuser" size="10" value="admin">
</td>
</tr>
<tr>
<td class=lanyuds>所屬分類：
<select name="cat_id">
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>
關鍵字
<input type="text" name="art_keyword" size="12">
<input type="checkbox" name="hx66" value=1 onClick=showimg()> <span id=advance>設為圖片文章</span> <a href="eWebEditor/Admin_Login.asp">※編輯器管理※</a>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="seft" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF" id="img" style="display: none">
<tr class=lanyuds>
<td width="17%">文章圖片地址：</td>
<td width="83%">
<input type="text" name="images" class="textarea" size="40" value="">
</td>
</tr>
<tr class=lanyuds>
<td>文章圖片上傳：</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class=lanyuds>
<textarea cols="85" name="art_content" rows="20" class="textarea" style="display:none"></textarea>
<IFRAME ID="eWebEditor1" src="ewebeditor/ewebeditor.asp?id=art_content&style=s_blue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>
</td>
</tr>
<tr>
<td class=lanyuds>
閱讀等級：
<select name="Grade" id="Grade">
<option value="0" selected>游客可讀</option>
<option value="1">普通用戶</option>
<option value="2">VIP 用戶</option>
</select> 扣除會員積分數：<input type="text" name="points" size="4" value=""> (應添整數數字) *游客可讀，請留空。
</td>
</tr>
<tr>
<td bgcolor="#E8E8E8" height="30" align="center">
<input type="checkbox" name="istop" value="1">
置頂 <input type="checkbox" name="isbest" value="1">
推薦
<input type="submit" name="Submit" value="確定新增" class="button">
<input type="reset" name="Reset" value="清空重寫" class="button">
[<a href="admin_art.asp">返回</a>] </td>
</tr>
<input type="hidden" name="action" value="newart">
<input type="hidden" name="MM_insert" value="true">
</form>
<tr>
<td class=lanyuds align="right">
版權所有：<a href="http://hx66.net" target=_blank><%=bq%> ver6.5</a>
</td>
</tr>
</table>
<%end if
if request.QueryString("action")="editart" then
if request.querystring("art_id")="" then
Response.Write("<script language=javascript>alert('請指定操作的對象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("art_id")) then
Response.Write("<script language=javascript>alert('非法的新聞ID參數！');history.back(1);</script>")
response.end
end if
end if
if request.querystring("cat_id")="" then
Response.Write("<script language=javascript>alert('請指定操作的對象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("cat_id")) then
Response.Write("<script language=javascript>alert('非法的新聞ID參數！');history.back(1);</script>")
response.end
end if
end if
sql="select * from art where art_id="&cint(request.querystring("art_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
img.style.display = "";
advance.innerText="取消圖片文章"
}else{
img.style.display = "none";
advance.innerText="設為圖片文章"
}
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="addnews" method="post" action="">
<tr>
<td class=lanyuss>修改文章</td>
</tr>
<tr>
<td class=lanyuds>標題
<input name="art_title" type="text" class="textarea" id="art_title" size="45" value="<%=rs("art_title")%>"> 添加人：<input type="text" name="tjuser" size="10" value="<%=rs("tjuser")%>">
</td>
</tr>
<tr>
<td class=lanyuds>所屬分類
<select name="cat_id" id="cat_id">
<%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("cat_id")%>"<%if rs2("cat_id")=rs("cat_id") then response.write "selected" end if%>>├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>
關鍵字
<input type="text" name="art_keyword" size="20" class="textarea" id="art_keyword" value="<%=rs("art_keyword")%>">
  <input name="hx66" type="checkbox" id="hx66" value="1" <%if rs("isimg")=1 then response.write "checked" end if%> onClick=showimg()> <span id=advance>圖片文章</span></td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="seft" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF" id="img" style="display: none">
<tr class=lanyuds>
<td width="17%">圖片地址：</td>
<td width="83%">
<input type="text" name="images" class="textarea" size="40" value="<%=rs("images")%>">
</td>
</tr>
<tr class=lanyuds>
<td>圖片上傳：</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class=lanyuds><textarea name="art_content" style="display:none"><%=Server.HtmlEncode(rs("art_content"))%></textarea>
<IFRAME ID="eWebEditor2" src="ewebeditor/ewebeditor.asp?id=art_content&style=s_blue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>
</td>
</tr>
<tr>
<td class=lanyuds>
閱讀等級：
<select name="Grade" id="Grade">
<option value="0" <%if rs("Grade")="0" then response.write "selected" end if%>>游客可讀</option>
<option value="1" <%if rs("Grade")="1" then response.write "selected" end if%>>普通用戶</option>
<option value="2" <%if rs("Grade")="2" then response.write "selected" end if%>>VIP 用戶</option>
</select> 扣除會員積分數：<input type="text" name="points" size="5" value="<%=rs("points")%>"> **數字整數
</td>
</tr>
<tr>
<td class=lanyuqs height="30" align="center">
<input name="istop" type="checkbox" id="istop" value="1" <%if rs("istop")=1 then response.write "checked" end if%>>
置頂 <input name="isbest" type="checkbox" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
推薦 <input name="Submit" type="submit" class="button" id="Submit" value="確定修改">
<input name="Reset" type="reset" class="button" id="Reset" value="清空重寫">
[<a href="admin_art.asp">返回</a>] </td>
</tr>
<input type="hidden" name="id" value="<%=rs("art_id")%>">
<input type="hidden" name="action" value="editart">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%rs.close
set rs=nothing
end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -