代码如下：<!--#include file="../../conn.asp"-->

<!--#include file="../../KS_Cls/Kesion.CommonCls.asp"-->

<!--#include file="../Include/Session.asp"-->

<%

dim ks:set ks=new publiccls

dtfs=request("dtfs")

if request("action")="save" then

kid=request("kid")

id=request("id")

if kid="" then errmsg=errmsg & "非法参数d \n"               

if id="" then errmsg=errmsg & "参数有误 \n"

if errmsg<>"" then

   response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")

else

set rs=server.CreateObject("ADODB.RecordSet")            

     sql="select top 1 * from KS_SJTK where id="&id



rs.open sql,conn,1,3



rs("title")=request("title")



rs("tmnr")=request("tmnr")



rs("dajs")=request("dajs")



rs("tmfs")=request("tmfs")



rs("tmtype")=request("tmtype")



rs("answer")=request("answer"&request("tmtype"))



rs.update



Call KS.FileAssociation(1012,rs("kid"),rs("answer"),0)

end if



set ks=nothing



set rs=nothing

conn.close

set conn=nothing

%>

<script>

location.href='mnkc_edit.asp?id=<%=kid%>';

alert("修改成功!");

</script>

<%

end if





'参数

tid=request("tid") '类别id

id=request("id")

kid=request("kid")

set rs=server.CreateObject("adodb.recordset")

rs.open "select * from KS_SJTK where id="&id,conn,1,1

if rs.bof and rs.eof then

response.Write("非法参数!")

response.End()

end if

'类型列表

怎么改呀！

这都好几天了，管理员看看吧，如何解决呀