回首页 <%if request("action")=""then%> 标题 * 30个字为宜^-^ 内容 类别 <% set rs_s=server.createobject("adodb.recordset") rs_s.open "select * from sd_class order by id ",conn,1,1 %> 请选择类别 <% while not rs_s.eof %> "><%=rs_s("title")%> <% rs_s.movenext wend rs_s.close set rs_s=nothing %> * 分类自动对应序号 作者 - 您的笔名或者网址都可以     <%end if%>

<% if request("action")="add" then If IsEmpty(Session("GetCode")) Or Session("GetCode") <> UCase(Request.Form("code")) Then response.write "" response.write "" Response.End Else dim title,content,author,classid title=Trim(request.Form("title")) content=Trim(request.Form("content")) author=Trim(request.Form("author")) classid=Trim(request.Form("classid")) set rs=server.createobject("adodb.recordset") sql="select * from sd_info" rs.open sql,conn,1,3 rs.addnew call SaveData_dlinfo() rs.update rs.close set rs=nothing call CloseConn() response.write"" response.Redirect "add.asp" end if sub savedata_dlinfo rs("title")=title rs("content")=content rs("author")=author rs("classid")=classid rs("adddate")=now end sub end if %>