<% if request("id")="" then response.redirect "default.asp" end if set rs=server.CreateObject("ADODB.RecordSet") Sql="select * from content where Id="&request("ID") rs.open sql,conn,1,3 if rs.eof then response.write("") response.end End if '判断该论文是否审核通过，如果没有通过，但作者是本人打开的，没有限制 if rs("User_name")<>session("lw_username") then if rs("shenhe")=0 then response.write("") response.end end if end if if rs("user_name")<>session("lw_username") then If Session("Connectedhit") = True Then rs("hit")=rs("hit")+1 Session("Connectedhit") = True End If End if rs.update content = Replace( "" & rs("content"), Chr(13), "
" ) content = Replace( "" & content, Chr(32), " " ) zhaiyao = Replace( "" & rs("zhaiyao"), Chr(13), "
" ) zhaiyao = Replace( "" & zhaiyao, Chr(32), " " ) sort_id=rs("sort_id") set rs1=server.CreateObject("ADODB.RecordSet") Sql1="select id,Bbs_address,sort from sort where id="&sort_id rs1.open sql1,conn,1,1 bbs_address=rs1("bbs_address") rs1.close set rs1=nothing %> 光明网论文发表交流中心 - 发表中心
<%=rs("Y_title")%>
<%=rs("title")%>
<%=rs("F_title")%>
<%=rs("D_Name")%>
<%if zhaiyao<>"" then %> 摘要：<%=zhaiyao%> <%end if%>
<%if rs("gjc")<>"" then %> 关键词：<%=rs("gjc")%> <%end if%>
<%=Content%>

[查看其它交流] [会员注册]


<% set rs1=server.CreateObject("ADODB.RecordSet") Sql1="select * from username where User_name='"&rs("User_name")&"'" rs1.open sql1,conn,1,3 if rs("user_name")<>session("lw_username") then rs1("hit")=rs1("hit")+1 end if rs1.update %> <% if session("lw_username")<>"" then %> <% else %> <% end if %> <% if session("lw_username")<>"" then %> <% else %> <% end if %>
姓名： <%=rs1("Name")%>
姓名： <%=rs1("Name")%>
单位： <%=rs1("Danwei")%>
邮箱： "><%=rs1("email")%>
职称： "><%=rs1("zhicheng")%>
职务： "><%=rs1("zhiwu")%>
邮箱：  
职称：  
职务：  
注：登录后即可查看作者资料
 
<% rs.close set rs=nothing rs1.close set rs1=nothing conn.close set conn=nothing %>