Set rs=server.createobject("ADODB.RECORDSET")
Set rs1=Server.CreateObject("ADODB.RecordSet")
session("useridname")=Request.cookies("ly")("useridname")
session("useridpassword")=Request.cookies("ly")("useridpassword")
if session("useridname")"" then
rs.open "select level1 from register where username='"&session("useridname")&"'",conn,1,1
if not rs.eof then
if rs("level1")="管理员" then session("admin")=1
if rs("level1")="版主" then session("admin")=2
if rs("level1")"版主" and rs("level1")"管理员" then session("admin")=0
session("admin")=0
rs.open "Select * From option1",Conn,3,3
show=rs("show")
if session("showmodal")="" then
if rs("modal")=1 then response.Redirect("default.asp")
session("showmodal")="1"
del=request("del")
type1=request("type1")
if del="ok" and ((session("admin")=1) or (session("admin")=2)) then
if (session("admin")1) and (session("admin")2) then response.Redirect "default.asp"
if type1="ok" then
dsql="delete From reply where id1="&request("id")
conn.execute(dsql)
rs.open "Select * from guest where ID = " & request("ID1"),conn,2,3
rs("hf")=rs("hf")-1
rs1.open "Select * from reply where id="&rs("id")&" order by id1 desc",conn,1,1
if rs1.eof then
rs("lastname")="――"
rs("lastdate")=rs("lydate")
rs("lastname")=rs1("replyname")
rs("lastdate")=rs1("replydate")
rs.open "Select * from guest where ID = " & request("ID"),conn,2,3
dsql="delete from reply where id="&request("id")
conn.execute(dsql)
dsql="delete From guest where id="&request("id")
conn.execute(dsql)
set rs=nothing
set rs1=nothing
response.Redirect "default1.asp"
sh=request("sh")
type1=request("type1")
if sh="ok" and ((session("admin")=1) or (session("admin")=2)) then
if (session("admin")1) or (session("admin")2) then response.Redirect "default.asp"
if type1="ok" then
dsql="update reply set mark=1 where id1="&request("id1")
conn.execute(dsql)
rs.open "Select * from guest where ID = " & request("ID"),conn,2,3
dsql="update guest set mark=1 where id="&request("id")
conn.execute(dsql)
if request("all")="1" then
dsql="update reply set mark=1 where id="&request("id")
conn.execute(dsql)
set rs=nothing
set rs1=nothing
response.Redirect "default1.asp"
text=request("text")
option1=request("option")
if option1="" then option1=0
if session("admin")="" then session("admin")=false
if request("jinghua")="1" then jinghua=" and jinghua=true" else jinghua=""
rs1.open "Select * From option1",Conn,3,3
webname=rs1("webname")
homepage=rs1("weblink")
reply=rs1("adminreply")
if rs1("show") and ((session("admin")1) and (session("admin")2)) then mark="(mark=true) and "
select case option1
SQL="Select * From guest where "&mark&"subject like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
SQL="Select * From guest where "&mark&"content like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
sql="SELECT * FROM guest where "&mark&"1=1"&jinghua&" ORDER BY top1,lastdate DESC"
end select
rs.open sql,conn,3,3
if not rs.bof then
dim maxperpage,url,PageNo
url="default1.asp?text="&text&"&option="&option1&"&jinghua="&request("jinghua")
rs.pagesize=rs1("row1")
maxperpage=rs.pagesize
PageNo=REQUEST("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
第一大中国美术高考网在线问答
在线问答数数: 总页数:& 第页
If PageNo=TSum or PageNo1 Then
PrwePage=PageNo-1
Response.Write "
Response.Write "
If pageno=1 or TSum>PageNo Then
NextPage=PageNo+1
Response.Write "
Response.Write "
<table width="990" height="25" align="center" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF" class="tablebgb">
<tr class="tablebga">
为更完整解答问题，请将所在的省市和成绩排名（专业与文化分数）告诉我们。
美术高考网ms211的老师都会认真予以回复：）
if not rs11("regshow") and session("useridname")="" then
response.write "您尚未登录，不能查看留言内容！"
DO WHILE NOT rs.EOF AND RowCount>0%>
<table width="990" border="0" align=center cellpadding="0" cellspacing="5" class="tablebge"class="tablebgf">
<td width="17%" rowspan="5" align=center valign="top" class="tablebgh">
<%if rs("username")"" then%>
<img src="<%if rs2("myface")"" then %>" width="" height="">">
<img src="">
<td height="17" colspan="2" class="tablebgj">
<font color="">
<img src="images/" >
response.Write "◎该留言为悄悄话◎"
if (session("useridname")=rs("username")) or ((session("admin")=1) or (session("admin")=2)) then%>
<td height="52" colspan="2" valign="top" <%if rs("edituser")"" then%>class="tablebgi">
sql1="select * from reply where reply.id="&rs("id")&" order by id1"
rs1.open sql1,conn,1,1
DO while (not rs1.eof) and skipi
<td colspan="2" valign="top" class="tablebgi">回复：
<%if rs1("replydate")"" then%>
<img src="images/" >
<%if not rs1("secret") then
if not show then
response.Write(ubbcode(rs1("replycontent")))
else if not rs1("mark") then
response.Write "◎该留言未审核◎"
if ((session("useridname")=rs1("replyname")) or (session("admin")=1) or (session("admin")=2) or (session("useridname")=rs("username"))) then
response.Write(ubbcode(rs1("replycontent")))
else response.Write(ubbcode(rs1("replycontent")))
response.Write "◎该留言为悄悄话◎"
if ((session("useridname")=rs1("replyname")) or (session("admin")=1) or (session("admin")=2) or (session("useridname")=rs("username"))) then%>
共条回复记录― >>查看全部回复内容<<
<%if rs("edituser")"" then%>
<td height="19" colspan="2" valign="top" class="tablebgi">
提问时间：
<%if rs2("mail")"" then%>
<%if rs("mail")"" then%>
<%if rs2("homepage")"" then%>
<%if rs("homepage")"" then%>
<%if rs2("qq")"" then%>
<%if rs("qq")"" then%>相关热词搜索：
·(249642)
频道总排行
频道本月排行
当代直销网
京ICP备号-3
&&&全国统一服务电话： 400-我是河北理科考生，今年参加高考。平常考试大概350左右，估计高考也就400分。我要不要考虑复读？_百度知道
我是河北理科考生，今年参加高考。平常考试大概350左右，估计高考也就400分。我要不要考虑复读？
我想考个本科院校，但是基础不好。如果复读应该有很大的进步空间。如果不复读还有什么方式可以上大学，考研。我不是为了毕业证书，是真的想学些东西。
提问者采纳
即便是专科的也是可以考研的！我们学校有很多自主招生类的读的试点本科都考研了
其他类似问题
为您推荐：
参加高考的相关知识
其他2条回答
如果你真的是想要学一些东西的话，不管你上专科还是本科都是可以学到东西的，在大学都有社团或学生会都可以学到很多东西。还有大学一般都有图书馆、也可以学习。
你的分数有可能考上三本，但是三本的学费比较贵，还不如选一个好点的专科学校和专业。专科主要注重技能的培养，而且还可以专接本。我上的是河北交通学院，现在正在实习，用的知识跟学得都一样。而且现在还有个IT专业，是和清华IT合作的特色专业，真正的学历+技能。不妨考虑一下。祝你考个好成绩。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁对不起，文章信息已删除或未审核。您要查看的信息不存在或者还未通过审批！2}