<!--#include file="articleconn.asp"-->
<% 
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&amp;lt;"),">","&amp;gt;"),chr(13),"
")," ","&amp;nbsp;") 
    changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
    changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%> 

<%
IF not(Session("MYKEY")="super" or session("MYKEY")="check" or Session("MYKEY")="input") THEN
    response.redirect "mymanage.asp"
    response.end
END IF
%>
<%if request.form("txttitle")="" then 
response.redirect "error.asp?id=059"
response.end
end if
%>
<%
if request.form("txtcontent")="" then 
response.redirect "error.asp?id=060"
response.end
end if
%>
<%dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from
dim txt

title=request.form("txttitle")
from=request.form("Nfrom")
zznews=request.form("zznews")
typeid=request.form("typeid")
about=request.form("about")
content=changechr(request.form("txtcontent"))

dim sql1
dim rs1
dim typename1
 sql1="select * from type where typeid="&amp;typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("type")
shenghe="&amp;acute;&amp;yacute;&amp;Eacute;ó"
set rs=server.createobject("adodb.recordset")
sql="select * from shenhe where (newsid is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("username")=session("username")
rs("title")=title
rs("content")=content
rs("Nfrom")=from
rs("selectpic")=selectpic
rs("typeid")=typeid
rs("type")=typename1
rs("shenghe")=shenghe
rs("zznews")=zznews
rs("about")=about
rs.update

txt=rs("title")
rs1.close 
set rs1=nothing 
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "addokok.asp?title='"&amp;txt&amp;"'"
response.end
%>


我想直接把数据写入  article    这个文件 不要写到shenhe 这个文件 主要是type值，   type值 写入 article 这个文件里的  typename11  选项   请问如何修改~