📄 add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="../admin/conn.asp"-->
<!--#include file="admin_xy.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>增加文章</title>
</head>
<body>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<!--#include file="../admin/i.asp"-->
<%
myid=cint(request("myid"))
%>
<font color='#FF00FF'>常用网址</font>:(取材)<br/>
<font color='#FF00FF'>http://yaha.cn/proxy/p/sexpic/3g/joke/</font><br/>
<font color='#FF00FF'>http://wap.pe68.com/joke/index.asp</font><br/>
<font color='#FF00FF'>http://www.xxhh.net</font><br/>
<font color='#FF00FF'>http://www.xiaohuawang.cn</font><br/>
<form id="form1" name="form1" method="post" action="save.asp?myid=<%=myid%>&xy=<%=xy%>">
<p><font color='#CD7F32'>标题(必填)：</font><br/>
<input name="title" title="标题" emptyok="true" value=""/><br/>
<font color='#42426F'>内容(必填,支持UBB)：</font><br/>
<textarea name="text" cols="70" rows="30"/></textarea><br/>
<br/><font color='#70DB93'>是否上传图片</font><br/>
<select title="上传" name="pic" value="">
<option title="不上传" value="2">不上传</option>
<option title="上传" value="1">上传</option>
</select><br/>
<br/><font color='#2F4F4F'>是否有答案?</font><br/>
<font color='#FF00FF'>(说明：如果你的是迷语，破案等互动文章，需要写答案，则选取此顶)：</font><br/>
<select title="答案" name="an" value="">
<option title="没有" value="">没有</option>
<option title="有" value="1">有</option>
</select><br/>
<font color='#7093DB'>答案(选填，如果你选了是，则填写)：</font><br/>
<input name="anan" title="答案" value=""/><br/>
<br/>分类：<select title="分类" name="classid" value="<%=ids%>">
<option title="请选择" value="">请选择</option>
<%
set rst=server.createobject("ADODB.Recordset")
Sql="select * from class order by ClassID asc"
rst.open Sql,conn,1,1
i=1
do while not rst.eof
%>
<option title="<%=rst("ClassName")%>" value="<%=rst("id")%>"><%=i%>.<%=rst("ClassName")%></option>
<%
i=i+1
rst.movenext
loop
rst.Close
set rst=nothing
%>
</select><br/>
<input type="submit" name="Submit" value="提交" />
</form>
<br/>----------<br/>
==UBB说明==<br/>
时间：(time)<br/>
贴图：
(img)图片地址(/img)<br/>
链接：
(url)链接地址(/url)或(url=链接地址)说明(/url)<br/>
电话：
(c)电话号码(/c)或(c=电话号码)说明(/c)<br/>
下划线：(u)文字(/u)<br/>
粗体字：(b)文字(/b)<br/>
斜体字：(i)文字(/i)<br/>
换行：\\（字母或数字里的）<br/><br/>
<a href="index.asp?xy=<%=xy%>">后台</a><br/>
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -