add.asp

wap手机笑话大全源码(无密码保护) wap手机网站

<!--#include FILE="conn.asp"-->
<!--#include FILE="head.asp"-->
<!--#include FILE="bianliang.asp"-->
<!--#include FILE="ItIsAFun.asp"-->
<!--#include FILE="Ascii.asp"-->
<wml>
<%
Response.Write Ascii("<card title=""添加文章"">")
%>
<p>
 <%
If Request.TotalBytes>0 then
	txtDataBuf=ItIsAFun()
	if instr(txtDataBuf,"name=")>0 and instr(txtDataBuf,"&address=")>0 and instr(txtDataBuf,"name=")<instr(txtDataBuf,"&address=") then
		txtDataBuf=split(txtDataBuf,"&address=")
		name=mid(txtDataBuf(0),6)
		txtm=txtDataBuf(1)        
                
                x=instr(txtm,"&level=")
                m=x-1
                address=left(txtm,m)
                y=mid(txtm,x)
                ttem=mid(y,8)
                abcd=ttem
                
                
                q=instr(abcd,"&tel=")
                z=q-1
                l=mid(abcd,q)
                level=left(abcd,z)
                tel=mid(l,6)
               

                set rs=server.createobject("adodb.recordset")
                sql="select * from jiudian"
                 rs.open sql,conn,3,3
                 rs.addnew
                 rs("name")=name
                 rs("address")=address
                 rs("level")=level
                 rs("tel")=tel
                 rs.update
                 rs.close
                response.write Ascii("添加文章成功<br/>")
		Response.Redirect "add.asp"
		
	End if
End if
%>
<%

Response.Write Ascii("文章名:<input name=""name"" emptyok=""true""/><br/>")
Response.Write Ascii("作者:<input name=""address"" emptyok=""true"" /><br/>")
Response.Write Ascii("文章类别:<select title=""level"" name=""level"" ivalue=""0"">")
Response.Write Ascii("<option value=""爆笑网文"">爆笑网文</option>")
Response.Write Ascii("<option value=""成人|夫妻|男女"">成人|夫妻|男女</option>")
Response.Write Ascii("<option value=""综合|家庭|校园"">综合|家庭|校园</option>")
Response.Write Ascii("<option value=""电脑|军事|政治"">电脑|军事|政治</option>")
Response.Write Ascii("<option value=""艺术|体育|文化"">艺术|体育|文化</option>")
Response.Write Ascii("<option value=""经营|宗教|古代"">经营|宗教|古代</option>")
Response.Write Ascii("<option value=""交通|名人|儿童"">交通|名人|儿童</option>")
Response.Write Ascii("<option value=""愚人|鬼话|民间"">愚人|鬼话|民间</option>")
Response.Write "</select><br/>"
Response.Write Ascii("文章内容:")
Response.Write "<input name=""tel"" emptyok=""true""/><br/></p><p><anchor>"
Response.Write Ascii("提交")
Response.Write "<go method=""post"" href=""add.asp"" accept-charset=""utf-8"">"
Response.Write "<postfield name=""name"" value=""$(name)""/>"
Response.Write "<postfield name=""address"" value=""$(address)""/>"
Response.Write "<postfield name=""level"" value=""$(level)""/>"
Response.Write "<postfield name=""tel"" value=""$(tel)""/>"
%>
</go>
</anchor>
</p>
<%
Response.Write Ascii("<p><a href=""index.asp"">返回笑口常开</a><br/>")
Response.Write Ascii("<a href=""/"">返回网站页面</a></p>")
%>
</card>
</wml>